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ABSTRACT 


This thesis presents a stochastic simulation model 
of ground combat. The tactics represented in this model 
are explained in detail, and a brief explanation of the 
SIMSCRIPT programming language used in the model is 
presented. The model is explained in detail, and the 
computer routines which make up the model are included. 
The input requirements for execution of the model are 
explained in detail so that this thesis might become the 
initial user's manual for future applications of the model. 
A typical simulated battle is presented with detailed ex- 
planation of the output to enable the reader to better 
appreciate the poOvgemiaal applications of the model) The 
current status of the model referenced in this thesis is 
prior to the version which will be used for production 


runs. 
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i. te ebucrion 


During the past several decades, the nature of battle 
has changed, not abruptly, but nonetheless Significantly. 
The fact that the modern battlefield will be dominated 
by highly lethal weapons is well known. Technologically 
advanced supporting systems (combat support, combat service 
Support, communications, etc.) are being developed and sent 
to the field. The high cost of these systems, either 
weapons or supporting systems, make it imperative theme once 
the procurement process is complete, the best possible 
systems are introduced into the inventory. Such systems 
must meet the most stringent requirements for effectiveness, 
trainability, and maintainability. In recent years one ong 
the most useful tools in evaluating proposed and existing 
systems has been the combined arms Simulation model. With 
these facts in mind, the Simulation of Tactical Alternative 
Responses (STAR) combined arms model discussed in this 
document has been developed. 

One of thesprimary goals of SUARMis no achievers 
acceptable level of resolution while assuring that the 
model inputs, interactions, and@eutputs are understood by 
mone military decismen maker. It is the intent of this 
maesis to outlinem@the Struc turemot so PAneiamcurtici#en: detail 
to allow analysts and decision makers to fully understand 
the execution logic of the model, and thus understand the 


results of the model and how these results were derived. 





Thesstructure Of smenk Te truly hiewarchical in that it 
meamnot Confined to any Specific unit size configuration. 
The SIMSCRIPT programming language has been chosen as the 
primary language for STAR. The reasons for selection of 
SIMSCRIPT and a brief discussion of those SIMSCRIPT 
programming features which are utilized in the model are 
discussed in Chapter II. 

The BLUE and RED tactics modeled in the current version 
o2 oTAR are discussed in chapter III. This chapter describes 
the assumptions made in regard to the tactics employed by 
individual weapon systems and unit organizations. The 
chapter also states, in general terms, how these tactics 
have been modeled. 

Chapter IV is an in-depth discussion of the SIMSCRIPT 
events and routines which make up the model. Included in 
chapter IV is a discussion of each individual routine, an 
explanation of the variables used in the routine, a listing 
of the computer code for the routine and a line by line 
explanation of what the code does. Also included in chapter 
IV is a discussion of the PREAMBLE and MAIN programs of the 
model which prepare the model for execution. 

Chapter V is a detailed discussion of the input 
requirements of the model. Included are specifications of 
the SIMSCRIPT inputs required and the job control language 
required to run the model. Proper formatting of the input 
and an explanation of the meaning of each block of input 


ms alse included. 
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Chapter VI is a simulated battle run using the current 
version of the STAR model. The progress of the battle is 
traced over time to show the reader the format of the 
model output and allow the reader to see what type of 
output could be expected from the model. 

The current version of STAR utilizes a parametric 
terrain model developed by Needels [ Ref. 8] while a 
student at the Naval Postgraduate School, and since en- 
hanced by Needels and Professor James K. Hartman of the 
Naval Postgraduate School. The parametric terrain model 
provides a truly continuous terrain as opposed to the 
digitized terrain used in some existing models. 

The model addressed in this thesis is, in a Sense, an 
micberim product. Work is continuing at the Naval Post- 
graduate School on a dynamic artillery module to be included 
in the model by mid-December 1978. Dynamic play of BLUE and 
RED air defense and close air support, as well as a detailed 
communications module, will be available by mid-April 1979. 
Enhancement of the existing model will continue through mid- 
1979 with the ultimate goal of providing a BLUE Brigade 
versus RED Division Simulation which employs all those 
modules mentioned above plus the dynamic play of resupply at 
the unit and individual vehicle level. These enhancements 
are described in chapter VII. 

Appendix A is a flowchart which represents the event 
flow of a single tank as the tank cycles through the 
Simulation. Appendix B is a glossary of terms used in the 


thesis. 
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Throughout the thesis, repeated references are made to 
the "current version of STAR". The purpose of this thesis is 
to deScribe the logic flow of the model within the context 
of the current model status prior to incorporation of many 
detailed features required for production runs. Therefore, 
the reader must not consider this thesis as a documentation 
of the production version of the model. Such a document will 
be produced as a Naval Postgraduate School Technical Report 
ma early 1979. 

In order to exercise the logic of the model, many 
assumptions were made concerning tactics employed by both the 
attacking and defending forces. These assumptions were made 
based on the experience of the authors, both combat and non- 
combat, and were in general validated by an appropriate agency 
of the United States Army Training and Doctrine Command. 
Tactical decision making, combat intelligence, command and 
eontrel, and tactical communications networks are not speci- 
fically modeled, but are addressed in the discussion of tacti- 
cal assumptions. It should be obvious that this model is not 
a full representation of actual combat. Modeling simplifica- 
tions have been made in several areas. However, none of these 
Simplifications should be considered critical to the validity 


of the model. 
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ii. THE Use OF SIMSCRIPT IN STAR 


General 

The SIMSCRIPT language, level II.5, was selected for 
STAR because the language is deSigned for discrete event 
Simulation applications. Because of the many imbedded 
features in SIMSCRIPT, the programmer is given opportunities 
ma the construction of event flow which are not available 
in FORTRAN or other computation languages. SIMSCRIPT is 
also Similar tow English in“e@ard to the construction of 
commands and the implementation of logical tests. fThis 
feature, coupled with an essentially free form of syntax, 
allows the code to be written in a very readable format. 
This will become apparent when the coding for the events 
ama routines MAP STAR is introduced. 

Also important to the programmer is the similarity of 
SIMSCRIPT to FORTRAN with regard to computational syntax. 

A programmer with a moderate amount of experience in 
FORTRAN should have very few difficulties understanding and 
writing computational routines in SIMSCRIPT. 

Finally, since a wide variety of computational routines 
exist in FORTRAN (terrain models, line of sight routines, 
smoke models, lethality packages, etc.), it is important 
that any Simulation provide some reaSonable interface with 


these existing modules. SIMSCRIPT provides this capability 


13 





by allowing FORTRAN routines to be called as subroutines 
by SIMSCRIPT events and routines. 

This last feature made SIMSCRIPT an even more appealing 
language, Since existing FORTRAN routines can be used with 
@aly minor modifications. The difficult line of sight 
calculations, for example, are accomplished in FORTRAN 
because the terrain model used by STAR was originally 
written in FORTRAN. Other routines which were more closely 
tied to the structure of SIMSCRIPT were written in that 
language. The routine that updates the list of detected 
targets for each TANK, for example, is written in SIMSCRIPT 
to take advantage of the dynamic dimensioning capability of 
the language and the pointer value link listing techniques 
available. For large target arrays, these SIMSCRIPT 
language features are extremely efficient in reducing core 
storage requirements and execution time. 

Main Structural Components of SIMSCRIPT 

The primary imbedded simulation facilities available to 
STAR are structural components known as entities, attributes, 
sets, and events. These components are used in conjunction 
with an internal timing mechanism which is referred to as 
the system timer throughout this thesis. These facilities 
greatly simplify the process of writing a Simulation program 
and debugging code. The process is further simplified by a 
compiler which provides error messages and traceback routines 


Similar to the WATFOR and WATFIV compilers in FORTRAN. 
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mae Structure of STAR 

The structure of STAR begins with the concept of an 
entity. An entity is simply a representation or model of 
an item to be simulated. In other simulations, entities 
might represent people waiting in line for tickets, customers 
in a bank, or automobiles waiting to be serviced at a gas 
station. In STAR the basic entities are weapon systems 
representing tanks, anti-tank guided missiles, artillery 
pieces, and are referred to generally as TANKs. Throughout 
this thesis the following terms are synonomous with the 
Mmetion of an entity: TANK, POINTER, FOE, element, weapon 
system, firer, target, and observer. Those terms which are 
capitalized are explicitly used as variables in the program. 
An entity may be brought into existence by using a simple 
phrase which includes the variable name of the entity. 
For example, the phrase CREATE A TANK reserves a place in 
core storage for the entity which the programmer has chosen 
to call TANK. Associated with the word TANK is a pointer 
value which defines the location in core storage where this 
particular TANK and information pertinent to it are stored. 

{It is desirable to associate certain characteristics 
with entities after they have been created. These charac- 
teristics are referred to as attributes and are affixed to 
an entity by the programmer or, as will be seen in the 
discussion of sets, may be placed on the entity by SIMSCRIPT 
bookkeeping procedures (referred to as the system). As an 


example of user affixed attributes, the programmer may wish 





to assign a current X coordinate to a TANK. This is 
accomplished by the phrase: LET X.CURRENT(TANK) = 3150. 
Attributes may be changed during program execution to 
reflect er characteristics. The system changes 
system defined attributes as required. 

iasaddition vo associating characteristics with 
particular entities, it is often useful to group entities 
with similar characteristics. STAR uses sets to keep track 
@e all TANKS on the battlefield for organizational and fire 
control purposes which enhances the programmer's ability to 
model unit tactics at any organizational level. An entity 
may belong to any number of sets and may also own sets. 
The following phrases illustrate set membership: FILE TANK 
IN TANKS, FILE TANK IN COMP.UNIT(5). In this example the 
TANK is first made a member of a set called TANKS. The 
system automatically assigns to the TANK a membership 
attribute, M.TANKS, whose value is the integer l. The 
second FILE command makes the TANK a member of company 
number 5. Again, a membership attribute (M.COMP.UNIT) is 
assigned a value of 1. Ownership of sets is accomplished by 
a phrase of the form: EVERY COMPANY.COMMANDER OWNS A 
COMP.UNIT. In addition, each entity filed in a set has 
attributes which indicate who the first and last members of 
the set are and how many members belong to the set. BLUE 
force elements are filed in platoon sets (PLT.UNIT), company 
sets (COMP.UNIT), and a set of operational tanks (BLUE.ALIVE). 
Although entities may be filed by ranking attributes, STAR 
uses a Simple first-in first-out procedure. RED force elements 
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are assigned similarly except that their set of operational 
Meaiks is called RED.ALIVE. All TANKs (XMls, IFVs, ITVs, 
DIVAD guns, DRAGONs, 172s, BMPs, and ZSUs) are assigned to 
a set called TANKS which is used for final output purposes. 
Each entity in STAR is modeled to reflect a flow of 
Metivities over time. In particular, each entity initiates, 
or undergoes, search, detection, target selection, firing, 
impact, or location update. These six events are 
scheduled dynamically based on the current tactical situation 
or by way of an appropriate probability distribution which 
models the period of time between events. When an event is 
scheduled for an entity, the SIMSCRIPT timer makes a record 
of the time that the event is scheduled to occur (in terms 
of overall simulated time) and the entity for which the event 
has been scheduled. Other characteristics of the event may 
be recorded in a manner Similar to the assignment of attri- 
butes. At the appropriate simulated time, the event is 
executed unless cancelled by some logic provided by the 
programmer. For example, the scheduling of a fire event by 
one TANK on another could be accomplished by the phrase: 
SCHEDULE A FIRE(A,ID) IN X SECONDS. The variable A repre- 
sents the pointer value of the firing TANK, while ID 
represents the pointer value of the target TANK. This 
event would be filed by the system in an event set which 
contained, among other things, the time that the event is 
to take place, the entities involved in the event and the 
event location with respect to other scheduled events. When 
X seconds had elapsed from the current simulated time, the 


sy 








event would be executed and the consequences of the logic 
written in the event routine would occur. Event routines 
may in turn generate other events. The FIRE event in STAR, 
for example, causes the scheduling of an IMPACT event. 
IMPACT may then cause the scheduling of DETECT and 
TARGET.SELECT events. 

The information provided here should prepare the reader 

for the detailed discussion of the event and routine coding 


which is given in chapter IV. 
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tit. TACTiCs MOPELED IN STAR 


The purpose of this chapter is to describe the tactical 
conventions modeled in STAR. Due to the unquantifiable 
nature of some of the tactics described herein, especially 
in the area of RED tactics, the tactics modeled in STAR 
represent, in some cases, a "best guess” as to how to 
represent the tactics of a particular system or unit organ- 
ization. The actual computer code which models these 
tactical considerations in the simulation is outlined in 
detail in chapter IV. 

In order to understand the tactics represented in the 
model, it is first necessary to understand how the weapon 
systems in the simulation are organized and to have some 
knowledge of the attributes of each of the weapons systems. 
As mentioned in chapter II, each weapon system simulated is 
a member of the set TANKS, which is a list of every element 
in the simulation. Each BLUE weapon system that is currently 
active in the simulation is a member of the set BLUE.ALIVE, 
likewise each active RED system is a member of a company set 
and a platoon:set which represent the unit to which he 
belongs. Every weapon system in the simulation has attri- 
butes which indicate to that element which weapon system 
in the simulation represents his company commander, platoon 


leader, and Section leader. Additional attributes indicate 


to the weapon system what type of ammunition he has available 


Ly, 
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and the number of rounds remaining. The weapon types and 
ammunition types available to each weapon system, and the 
numeric code used to represent these weapons and ammunition 
types are presented in table 1. With this general under- 
standing of the set and attribute structure of the model we 


proceed with the tactical discussion. 


search and Detection 


search for targets takes place iteratively throughout 
the simulation at intervals specified by a time increment 
variable, DELTA.T, provided by the user. The essence of the 
search procedure is that every DELTA.T seconds of the simu- 
lation every weapon system will check every opposing weapon 
system that is still "alive" in the simulation. If the 
observer has line of sight to the target, the time it would 
take for the observer to detect the target is determined and 
at that future time the detected target is placed in a list 
of currently detected targets unique to that particular 
observer. No detections of greater than DELTA.T seconds 
are scheduled. This prevents detections from overlapping 
Ato the next search event. Detection can take place 
external to this normal detection process in one of two ways. 
First, a target that is fired on is allowed to detect the 
firer without going through the normal detection process. 
Second, those weapon systems in close proximity to a 
normally detected target are considered detected as well 


and are placed in the observer's target list. 
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Target Selection 


The use of danger state tables in target selection and 
the computer code which simulates the selection of targets 
are explained in detail in later chapters. A brief ex- 
planation of the target selection process is given in this 
section. The distance from firer to target is currently 
divided into three range bands for each firing weapon 
system. These bands are: less than 1000 meters from the 
system, 1000-2000 meters from the system, and greater than 
2000 meters from the system. The observer searches his list 
of detected targets and selects the highest priority target 
within the closest range band. Within range bands, targets 
of equal priority are selected based on closest range, which 
is the normal target selection process for a weapon system. 
This normal selection process may be overridden by special 
tactical considerations described in subsequent paragraphs. 
Current development of a more comprehensive target selection 


model is described in chapter VII. 


A. BLUE WEAPON SYSTEMS 
merrain Utilization 

It is assumed that the BLUE weapon systems in defense 
will take maximum advantage of the available terrain. 
BLUE systems will assume a turret defilade position while 
acquiring targets, move to a firing defilade position during 
firing, and, after firing a specified number of rounds, move 
to a full defilade position which protects the system from 
aerecp 11 GSesWwalle toddine animuni Glen wiredi Ss trleu cine 
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ammunition, accomplishing emergency repairs or moving to an 
alternate firing position. The number of rounds fired which 
trigger a movement to a full defilade is dependent on the 
type weapon system. The length of time spent in full 
defilade is dependent on the task being accomplished and 
the user specified times for the task. 
Individual Firing of XM1 or DIVAD gun in Ground Support Role 
The XML is allowed to fire two or three rounds from 
its firing defilade position. The determination of whether 
two or three rounds are fired is dependent on the sensing 
of the rounds and is best illustrated by table II. HIT 
refers to a sensed catastrophic kill and MISS refers to any 
other result. 
The same logic as illustrated in table II applies to the 
DIVAD gun with 35 (or 40)mm gun. Note that each firing of 


the DIVAD gun represents a burst of 1O rounds. 
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meciveadual Firing of I[FV,ITV, or DRAGON 
The ITV, IFV, and DRAGON weapon systems go through the 


Same sequence of turret defilade, firing defilade and full 
defilade as the XM1 and DIVAD. In the case of weapon systems 
which have no turret, the term turret defilade refers to the 
weapon system in a position of minimum exposure to direct 
fire while still allowing visual target acquisition. In 
the case of the ITV, IFV and DRAGON, the weapon system is 
allowed to fire two rounds regardless of sensing of round 
effect and is then moved to a full defilade position. 
selection of Targets While in Firing Defilade 

The STAR model differentiates between a ballistic round 
and a wire guided round in terms of the firing system's 
selection of subsequent targets while in firing defilade. 
The logic employed is such that a system firing a wire 
guided round will always go through the process of selecting 
a new target (which may result in the same target being re- 
engaged), while a system firing a ballistic projectile will 
continue to engage the same target (without going through 
the target selection process) until the target is sensed as 
mcacvastropnic kill (at which time @ new target selection 
takes place). In all cases, a movement to full defilade 
causes the weapon system's list of detected targets to be 
set to zero. The subsequent return to turret defilade and 
then to firing defilade causes the normal detection and 


Selection process to take place. 
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Impact of ATGM (Anti-Tank Guided Missile) Rounds 

The STAR model takes into account the eventuality of an 
ATGM round being fired and, before impact of the round, the 
firing system being destroyed. For both BLUE and RED 
missile firing systems which are killed with rounds in 
flight, the round is allowed to impact, but is always 
considered unguided at impact and assessed as a complete 
miss of the target. 
femk Platoon Fire Control 

BLUE tank platoon fire control is modeled under the 
assumption that platoon positions are well planned and pre- 
pared, sectors of fire assigned to individual tanks and 
strict fire control and fire discipline observed. Platoon 
fire control is modeled such that no two tanks in the same 
platoon are allowed to engage the same target, with one 
possible exception. If a tank searches its entire target 
List and finds that all of his detected targets are being 
engaged by members of his platoon, he will engage the 
highest priority target in his list regardless of whether or 
not that target is currently engaged by another platoon 
member. 
Mechanized Infantry Platoon Fire Control 

BLUE mechanized intantryeplatoom firesecontrol is 
modeled in a fashion similar to fire control for the tank 
platoon. No two IFVs within the same platoon are allowed 
to engage the same target simultaneously. The on board 
load of TOW rounds is assumed to be such that these rounds 


heli be Stememly Controlled: thus,, 31 all targets in a 
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selecting IFV's target list are engaged, that IFV will not 
fire until such time as he detects a target not engaged by 
another platoon member. The DRAGON teams in a mechanized 
infantry platoon are assumed to be employed independently 
and without advantage of communications with the platoon 
headquarters. Thus, DRAGON teams are allowed to detect, 
select, and fire on targets independent of the actions of 
other platoon members. 
selection Fire Control for [TVs 

The ITV sections attached to the company team are 
assumed to operate under the same strict controls in regard 
to TOW ammunition as the IFVs in the mechanized infantry 
platoon. To model this, the ITVs in the company team are 
all filed in the same platoon set and fire control is 
modeled identically to that for the IFVs in the mechanized 
infantry platoon. 
BLUE Company Fire Control 

Fire control at the BLUE company team level is not as 
strictly modeled as are the fire control measures in the 
platoons. Company team fire control and distribution is 
accomplished by the careful selection of direction of 
movement (DIR.OF.MVMT) and primary direction of search 
(PRI.DIR) attributes for company team elements. These 
attributes, when properly designated, allow for overlapping 
and mutually supporting fields of fire for company team 
elements. No other allowance is made for elements to co- 
ordinate fires with weapon systems other than those in their 


asSigned platoon. 
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B. RED WEAPON SYSTEMS 


Terrain Utilization 





Red weapon systems in the offense are assumed to move 
at a maximum speed allowed by the terrain and the enemy 
Situation, while maintaining formation integrity as much as 
Peasible. Thus, the utilization of terrain by RED forces 
is primarily through the selection of the best attack routes 
to their assigmed objectives. RED forces are assumed to 
fire on the move in the attack and are thus not afforded 
the option of seeking defilade while firing. The only ex- 
ception is the case of the BMP while firing its ATGM. When 
firing a wire guided missile, BMPs stop to fire and seek the 
best cover and concealment along their movement route, 
while maintaining formation integrity to the extent 
possible. 
heb Tank Platoon Fire Control 

The RED tanks in the simulation are assumed to mass 
fires on targets designated by the platoon leader. The RED 
tanks fire on the move and fire on the target designated by 
their platoon leader if the platoon leader is "alive", the 
platoon member has line of sight with the platoon leader and 
the platoon member has the proper type of ammunition avail- 
able to engage the target. The failure to meet any of these 
criteria causes a RED tank to go through the selection and 
firing process independent of the leader's target. Upon 
impact of a round, the RED tank goes through the target 


selection process regardless of the sensing of the round. 
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Thus, RED tanks are not given the opportunity to sense the 
impact of a round and improve upon the hit probability of 
subsequent rounds fired at the same target. ZSUs in the 
ground support role use the same logic as RED tanks firing 
individually. 
EMP Fire Control 

Doctrinally, the overriding consideration of RED forces 
in the offense is the momentum of the attack. The primary 
role of the BMP is to serve as an infantry carrier. As a 
result, the BMP does not fire in the attack as long as the 
tanks of the unit to which it is attached provide protection 
for it. To model this tactic, the STAR model causes the BMP 
to select a target and check to see if any other weapon 
system in its company (to include other BMPs) is engaging 
that target; if so, the BMP aoee NOt fire at that parureular 
target and selects another target from its list of currently 
detected targets. If every target in a BMP's list of 
detected targets is being engaged by other company members, 
the BMP continues to move without firing. The BMP stops to 
fire its ATGM but fires it 73mm gun on the move. 
RED Company Fire Control 

Fire control and distribution at the company level 
for RED forces is accomplished in the same manner as BLUE 


company level fire control. 
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IV. DETAILED EXPLANATION OF STAR 


In this chapter each event and routine in STAR. is 
explained in detail. With the exception of the PREAMBLE, 
the format used will include a description of the event or 
routine, including its purpose; a listing and definition 
of variables which are local to the event or routine; and 
a listing of the actual coding used in the current version 
of STAR, followed by a brief explanation of the code. 

The PREAMBLE is somewhat different in structure and 
the primary area of interest is in the definition of the 
variables, arrays, entities, attributes, and sets which 


are global to all STAR events and routines. 


A. PREAMBLE 
General 

The PREAMBLE is used to define global variables and 
arrays; declare entities, attributes, and sets; define events 
and FORTRAN routines; and prepare for subsequent statistical 
output. The PREAMBLE is similar to an extensive COMMON 
Statement in the FORTRAN language in that everything de- 
clared in the PREAMBLE is essentially global, that is, 
refined forwucesthroughout the program. Thisemay be con-— 
trasted with variable and array definition in routines and 
events which insures that the variables and arrays 


so defined are local to the particular event or routine. 
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The PREAMBLE is also used to pack variables and arrays. 
Since extensive use of variable and array packing fie used 
in STAR, this feature is discussed prior to the definition 
of the variables and arrays themselves. Two types of pack- 
ing are utilized in STAR: field packing and bit packing. 

Field packing is used to pack integer arrays such that 
each byte (8 bits) of an IBM 360-67 word (4 bytes or 32 bits) 
is used to represent an array location. Packing in this 
manner can reduce array core requirements to one quarter of 
their full word requirements. However, packing does limit 
the value that can be represented in an array location to 
2%*8 - 1 or 255. This maximum value is more than sufficient 
for the packed integer arrays used by STAR. The packed arrays 
can be identified in the PREAMBLE by a statement of the form: 
THE SYSTEM OWNS A TABLE(*/4). This is followed by a state- 
ment of the form: DEFINE TABLE AS A 2-DIMENSIONAL INTEGER 
ARRAY. 

Bit packing is used to pack attributes of temporary 
entities. If desired, each bit of an IBM 360-67 word may 
be used to represent a variable. Again, the maximum value 
represented by a packed variable is 2**B - 1, where B is 
the number of bits used. For example, an entity oe have 
the following packed attributes: A (NAME(1-5), AGE(6-12), 
ANNUAL. INCOME (13-31), SEX(32-32)). In this example, NAME 
may represent a maximum value of 2**5 - 1 or 31, AGE a value 
of 127, ANNUAL. INCOME a value of 524287, and SEX a value of 
1. 
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Unless otherwise stated in the discussion that follows, 
all data values are initialized in the MAIN routine. Follow- 
ing this discussion a listing of the PREAMBLE coding is 
provided and a brief explanation is given for PREAMBLE lines 
which are not straightforward. 

REAL Variables 

X.STOP - The X coordinate on the battlefield used to stop 
RED forces from advancing. 

Y.STOP - Similar to X.STOP except that it represents a 
Y coordinate on the battlefield. 

R.PCT.ATT - A percent attrition for RED forces which is 
used to stop the simulation. If the RED forces reach or ex- 
ceed this value, the simulation will halt. 

EeeGrT ATT =) The BLUE force percent attrition which used 
in a manner Similar to R.PCT.ATT above. 

DEF.TIME - The amount of time a TANK remains in full 
defilade following a firing sequence. 

CONSTANT - The cosine of the TANK's search sector angle. 

AREA - The TANK's search sector angle in degrees. 

B.AREA - BLUE element analog of AREA. 

R.AREA - RED element analog of AREA. 

MVM - The time in seconds that it takes a TANK to detect 
a weapon system which is in the TANK's search sector and has 
fired on the TANK. 

NNN - The time in seconds that it takes a TANK to detect 
a weapon system which is not in the TANK's search sector and 


mas fired at the TANK. 
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DELTA.T - The time interval in seconds between 
successive detection scheduling events (event STEP.TIME). 

PCT.VIS - The percentage of a target visible to the 
observer. 

CRITICAL. VALUE - A number between 0 and 1 which is 
compared to the percentage of the target visible to the 
observer (PCT.VIS). Line of sight does not exist if PCT.VIS 
is less than CRITICAL. VALUE 

W.K.C. - A range, in meters, which when added to the 
maximum effective range of a weapon, limits the maximum 
detection range to the sum of these two values. 

INTEGER Variables 

LIN - A variable used to count the number of calls to 
mie Line of sight routine. 

RC.COUNT - The number of BLUE TANKs created; used as a 
reference value by RED TANKs. 

BC.COUNT - The number of RED TANKs created; used as a 
reference value by BLUE TANKs. 

TTT - A variable used to count the total number of rounds 
mured. 

LINE.OF.SIGHT.EXISTS - A variable is assigned the value 
Seek if PCT.VIS is greater than CRITICAL. VALUE, and 0 
otherwise. 

R.NUM.ALIVE - The starting number of RED weapon systems. 

B.NUM.ALIVE - The starting number of BLUE weapon systems. 

BLUE - A variable representing the color of friendly 


forces. 
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hae ="n Variable representing the color of opposing 
forces. 
REAL Arrays 

P.V - A single element array which, when returned as an 
argument from FORTRAN routine LOS, contains the value of 
PCT.VIS. 

ZH - A single element array which, when returned as an 
argument from FORTRAN routine ELEV, contains the value of a 
TANK's Z coordinate (elevation). 

INTEGER Arrays 

BBBPOINT - An array containing the pointer values of all 
BLUE TANKs. 

RRRPOINT - An array containing the pointer values of all 
RED TANKs. 

TEMP.TGT - A holding array used to store pointer values 
meomea TANK's list of detected targets. 

LIST - An array containing the pointer values of a 
TANK's detected targets. Each TANK has a list which is 
accessed by referencing the pointer value of the LIST. 

TARGET - A 2-dimensional array, each row of which contains 
the pointer value to a TANK's LIST and the pointer value of 
the TANK. 

DS1 - The danger state array containing BLUE engagement 
priorities and preferred ammunition selections within 
rangebands. 

DS2 - The danger state array containing RED engagement 
priorities and preferred ammunition selections within 


rangebands. 
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ALPHA Arrays 


QQ - An array used to store alphanumeric abbreviations 
for weapon types. This array is accessed when the results 
of an engagement are printed. 

System Owned Sets 

TANKS - The set to which all weapon systems belong. 

BLUE.ALIVE - The set to which all BLUE TANKs belong 
initially. BLUE TANKs are removed from this set as they 
are killed. 

RED.ALIVE - The set to which all RED TANKs belong 
initially. RED TANKs are removed from this set as they 
are killed. 

Permanent Entities and Sets 

COMPANY .COMMANDER - A permanent entity which is used 
solely as the owner of a company set, COMP. UNIT. This set 
contains all TANKs which are assigned to the same company. 

PLATOON.LEADER - A permanmt entity which is used solely 
as the owner of a platoon set, PLT.UNIT. This set contains 
all TANKs which are assigned to the same platoon. 

Temporary Entities and Attributes 

The basic element in STAR is the temporary entity called 
TANK. Each TANK has a number of characteristics called 
attributes which are defined below. Those attributes, which 
must be input by the user, are discussed in the Input 
Requirements chapter of this thesis. 

NAME - An integer variable whose value may not exceed 


O22: 
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COLOR - An integer variable whose value is 1 if the 
Serer is BLUE, and 0 if the color is RED. 

WPN.TYPE - An integer variable representing a 
particular type of weapon system (e.g., XML, BMP, IFV, etc.). 
The value of WPN.TYPE may not exceed 31. In the current 
version of STAR only 9 types of weapons are played and are 
numbered sequentially from 1 to 9. For a list of weapon 
types, see input requirements chapter or table I. 

VEH.TYPE - An integer variable representing a 
particular lethality configuration of a weapon system. 
Although not currently used in STAR, its value may not 
exceed Bi. 

ALIVE.DEAD - An integer variable with a value of O if 
the TANK is alive, and a value of 1 if the TANK is dead. 

HIT.STATE - An alpha variable which contains an 
abbreviation of the TANK's status (e.g., DEAD, HIDE, etc.). 

POINTER - An integer variable which contains the pointer 
value assigned to the TANK upon its creation. 

X.CURRENT - A real variable representing the TANK's 
current X coordinate on the battlefield. 

Y.CURRENT - A real variable representing the TANK's 


eurrent Y coordinate on the battlefield. 
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Z.CURRENT - A real variable representing the TANK's 
current Z coordinate (elevation) in meters on the battle- 
field. 

SPD - A real variable representing the TANK's current 
speed in meters per second. 

T.SPD - A real variable representing the simulated 
battle time at which a TANK's speed was last set. 

DIR.OF.MVMT - A real variable representing the direction 
of movement of the TANK. This value is entered in mils and 
converted to radians in the program. 

PRI.DIR - A real variable representing the primary 
direction of search for a TANK. This value is entered in 
mils and converted to radians in the program. 

DEFNUM - An integer variable representing the current 
defilade condition of the TANK. This attribute is assigned 
the following values: 1 - full defilade, 2 -turret defilade, 
3 - firing defilade, 4 - seeking concealment while stopping 
to fire, 5 - defilade condition determined by the terrain 
model. 

AP.TOW - An integer variable representing the number of 
rounds of ammunition type 1 which are currently on board the 


TANK. For XMls and T72s, this represents armor piercing 


37 





ammunition. For IFVs, ITVs, and BMPs, this represents 
anti-tank guided missiles. 

HE.DRAG - An integer variable representing the number 
of rounds of ammunition type 2 which are currently on board 
the TANK. For XMls and T72s, this represents high explosive 
anti-tank ammunition. For DRAGONs this represents a short 
range anti-tank missile. 

AW1.OR.MSL3 - An integer variable representing the 
number of rounds of ammunition type 3 which are currently 
on board the TANK. For XMls this represents .50 caliber 
pmmunition counted in 10 round bursts. For T72s this 
represents 12.7mm machinegun ammunition counted in 10 round 
bursts. For BMPs this represents 73mm high explosive 
ammunition. For IFVs this represents 25mm Bushmaster 
ammunition counted in 10 round bursts. For DIVADs and ZsUs 
this represents their basic air defense ammunition counted 
mo LO round bursts. 

AW2.O0R.ADM - An integer variable representing the number 
of rounds of ammunition type 4 which are currently on board 
the TANK. The current version of STAR does not use this 


attribute, but it is provided for the user. 
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HITSHOT - An integer variable representing the number of 
hits (catastrophic kills) scored by a TANK during its 
current firing sequence. 

MISSSHOT - An integer variable representing the number 
of misses (anything other than a catastrophic kill) scored 
by a TANK during its current firing sequence. 

PROJO - An integer variable representing the type of 
ammunition currently selected by the TANK. 

OP.RNG - An integer variable representing the maximum 
range at which a TANK will attempt to engage another TANK. 

MZL.VEL - An integer variable representing the velocity 
of the currently selected ammunition type (PROJO). 

M1, M2, M3, M4 - Integer variables representing the 
velocities associated with each of the 4 ammunition types. 

ND.HIT - An integer variable representing the number of 
hits sustained by a TANK which have caused no damage. 

M.HIT - An integer variable representing the number of 
hits sustained by a TANK which have caused mobility damage. 

F.HIT - An integer variable representing the number of 
hits sustained by a TANK which have caused firepower damage. 

MF.HIT - An integer variable representing the number of 
hits sustained by a TANK which caused simultaneous mobility 
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K.HIT - An integer variable representing the number of 
hits sustained by a TANK which were sufficient to cause a 
catastrophic kill (K-kill). 

NUM.HIT - An integer variable representing the total 
number of hits, including no damage hits, sustained by a 
TANK. 

FIRED.AT - An integer variable representing the total 
number of rounds fired at a TANK. 

SEC, PLT, CO, BN, RGT, BDE, DIV - Integer variables 
representing the identification number of the section, 
platoon, company, battalion, regiment, brigade, and division 
to which the TANK is assigned. 

FIP - An integer variable which is assigned the value 
iit a TANK has a firing in progress, and a 0 otherwise. 

SCHED - An integer variable which is assigned the value 
1 if a TANK has a fire event scheduled, and a O otherwise. 

SECOND.SHOT - An integer variable which is assigned the 
value 1 if the TANK is firing a second round on the same 
target. 

PH - A real variable representing the probability of 


hit as determined by routine COMPUTE. 
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FOE - An integer variable representing the pointer value 
of the TANK's current target. 

CHECK. TIME - A real variable representing the time at 
which a TANK's next fire event is to occur. 

RANGE - A real variable representing the range in meters 
to a TANK's current target. 

STEPS - An integer variable representing the number of 
STEP.TIME events scheduled for the TANK. 

C.1, C.2,@3, C.4 - Integer variables representing 
the amount of ammunition loaded in each of five user defrined 
compartments on a TANK. These attributes are not used in 
the current version of STAR, but are provided figie wae with 
vulnerability packages which are functions of ammunition 
storage location. 

PLOW.COND - An integer variable representing the 
availability of a mineplow on a TANK. The following codes 
are used: O = no plow available, 1 - plow available but 
not in use, 2 - plow being used. 

DUMMY - An integer variable which may take on values 0 
mel, This variable is not eUrrenely used in STAR. 

MKILL - An integer variable assigned the value 1 if a 
mobility kill is sustained by a TANK. 


4} 





FKILL - An integer variable assigned the value 1 if a 
firepower kill is sustained by a TANK. 

MFKILL - An integer variable assigned the value 1 if a 
mobility and firepower kill is sustained by a TANK. 

KKILL - An integer variable which is assigned a value l 
if the TANK has been castrophically killed. 

COCDR, PLTLDR, SECLDR - Integer variables representing 
the names of a TANK’s company commander, platoon leader, and 
section le@er respectively. 

X.L, ¥.L - Real variables which form a vector 
representing the left sector limit line of a TANK’s search 
sector. 

X.R, Y.R - Real variables which form a vector 
representing the right sector limit line of a TANK's search 
sector. 

M.D - A real variable representing the accumulated 
percentage of mobility damage sustained by a TANK. 

F.D- A real variable representing the accumulated 
percentage of firepower damage sustained by a TANK. 

HTO - A real variable representing the height of the 


observer, in meters, above macro terrain. 
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HTTGT ~ A real variable representing the height of the 
target, in meters, above macro terrain. 
Events 

LOC.UPD - This event is used to periodically update the 
i ., and Z coordinates of TANKs on the battlefield. The 
pointer value of the TANK being updated is required as an 
| argument. 

STEP.TIME - This event is used to schedule detection 
events. The pointer valt® of a BLUE TANK is required as an 
argument. 

DETECT - This event processes the detections scheduled 
by event STEP. TIME. The pointer values of the observer and 
the detected TANK are required as arguments. 

TARGET.SELECT - This event uses danger state arrays, a 
meNK's list of detected targets, and tactical fire control 
modules to select targets and schedule FIRE events. The 
pointer value of the selecting TANK is required as an 
argument. 

FIRE - This event simulates a TANK firing on its target. 
The pointer value of the firer and the target are required 


aS arguments. 
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IMPACT - This event simulates the consequence of a FIRE 
event. The pointer values of the firer and the target are 
required as arguments. 

FINAL.DEATH - This event changes the status of a TANK 
from alive to dead after an appropriate period of time. 
The pointer value of the TANK to be killed is required as 
an argument. 

HIDE - This event changes the defilade condition 
(DEFNUM) of a TANK at <@e appropriate time. The pointer 
value of the TANK and the type of defilade change are 
required arguments. 

ATTRITION. CHECK - This event periodically checks the 
total losses by RED and BLUE forces and schedules a halt 
to the simulation if required. 

SLOP, oLMUBATION = This event prints final output and 
brings execution of STAR to a halt. 

FORTRAN Routines 

SETUP - This routine reads initial valWes for terrain 
features which represent the battlefield. 

ELEV - This routine calculates the Z coordinate 
(elevation) for a TANK at a given location on the battle- 


field. ELEV requires three arguments: the X coordinate 
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of the TANK, tive © Coordimace Of une TANK, and the single 
element array ZH, whose value upon return from ELEV is the 
Z coordinate of the TANK. | 
LOS - This routine calculates the percentage of the 
target visible to the observer. LOS requires 9 arguments: 
the X, Y, and Z coordinates of the observer and target, the 
heights of the observer and target, and the single element 
array P.V, whose value upon return from LOS will be the 
percentage of the target visibfe to the observer. 
Soding and Brie? Explanation 
The ccding for the PREAMBLE is shown below, followed by 
a brief explanation: 
1 PREAMBLE 
2. DEIN x, oor, @. ofOr, Pe CT Art, B.POPealT peer.) INE, 


CONSTANT, AREA, 


5 HAG. LIVE MMM, Sela. fGNN, Deoneay Renn eA, ORL l ICAL 
VALUE, 

4 PCT. VIS,AND W.K.C AS REAL VARIABLES 

5 | BEE INE DIN, RC eUmn TT Be. COUNT, TPP Eine. OF vsiGal: 


meiols, Rk. NUM. ALIVE, 


6 B.NUM. ALIVE,BLUE,AND RED AS INTEGER VARIABLES 
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DEFINE QQ AS A 1-DIMENSIONAL ALPHA ARRAY 

DEFINE P.V AS A REAL,1-DIMENSIONAL ARRAY 

DEFINE ZH AS A REAL, 1-DIMENSIONAL ARRAY 

DEFINE BBBPOINT AS AN INTEGER 1-DIMENSIONAL ARRAY 

DEFINE RRRPOINT AS AN INTEGER 1-DIMENSIONAL ARRAY 
DEFINE TEMP.TGT AS AN INTEGER, 1-DIMENSIONAL ARRAY 
DEFINE TARGET AS AN INTEGER, 2-DIMENSIONAL ARRAY 
DEFINE LIST AS AN INTEGER, 1-DIMENSIONAL ARRAY 
DEFINE BLUE#T0 MEAN 1 
DEFINE RED TO MEAN 0 

THE SYSTEM OWNS A TANKS 

THE SYSTEM OWNS A BLUE.ALIVE AND A RED.ALIVE 

THE SYSTEM HAS A DS1(*/4) 

DEFINE DS1 AS A 2-DIMENSIONAL INTEGER ARRAY 

THE SYSTEM HAS A DS2(*/4) 

DEFINE DS2 AS A 2-DIMENSIONAL INTEGER ARRAY 

GENERATE LIST ROUTINES 

PERMANENT ENTITIES 

EVERY COMPANY.COMMANDER OWNS A COMP.UNIT 

EVERY PLATOON.LEADER OWNS A PLT.UNIT 


TEMPORARY ENTITIES 
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28 EVERY TANK HAS A (NAME(1-10) ,COLOR(11-11) ,WPN. TYPE 
(12-16) , VEH.TYPE(17-21), 

29 ALIVE.DEAD(22-32)),A HIT.STATE, A POINTER, A X.CURRENT, 
A Y.CURRENT, 

30 A Z.CURRENT, A SPD, A T.SPD, A DIR.OF.MVMT, A PRI. 
DIR, A (DEFNUM(1-8), 

31 AP. TOW(9-14) ,HE.DRAG(15-20) , AW1.OR.MSL3( 21-26) ,AW2. 
OR. ADM(27-32)), 

32 A (HITSHOT(1-2) ,MISSSHOT( 3-4) ,PROJO(5-7),0P.RNG(8-19) , 
MZL.VEL(20-31)), 

33 A (ML(1-16) ,M2(17-32),A (M3(1-16) ,M4(17-32)),A 
(ND.HIT(1-4) ,N.HIT( 5-8), 

34 F.HIT(9-12) ,MF.HIT(13-16) ,K.HIT(17-20) ,NUM.HIT( 21-26) , 
BeReD. AT( 27-32) 5 

35 A (SEC(1-11) ,PLT(12-22) ,CO(23-32)), A (BN(1-7), 
RGT(8-15) ,BDE(16-18) ,DIV(19-21), 

36 FIP( 22-22) ,SCHED( 23-23) ,SECOND.SHOT( 24-25)),A PH, A 
FOE, A CHECK.TIME, A RANGE, 

37 A (STEPS(1-2), €.1(3-8),C.2(9-15) ,C.3(16-21),C.4 
(22-27 )., PUCNMOOND( 2am )) , 

38 A (DUMMY(1-1),MKILL(2-11) ,FKILL(12-21) ,MFKILL(22-31), 


Peni (32-32) ); 





os A COCDR@P A PETEPR, A SECLDR, A X.L, A Y.L, A X.R, 
oan, A M.D, &A9F.D, AeHTO, 

40 A HTTG, AND MAY BELONG TO A TANKS, A PLT.UNIT, A 
Some. UNIT, A RED. ALIVE, 

41 AND A BLUE. ALIVE 

42 DEFINE C.1,C.2,C.3,C.4,DEFNUM,NAME,COLOR,WPN. TYPE, 
Poey. DEAD, FIP, SsCHED,STEPS, 

43 Sees oHiOT, SEC ,PLT,CO,BN,RGT, BDE DIV, POUNTER, 
mom ,COCDR,PLTLDR,SECLDR, 

4h NES Mit pee) , Me kK. NU. Pcie eaeaane 
A, AP. TOW ,HE.DRAGC, 

45 AW1.OR.MSL3, AW2.OR. ADM, ML,M2,M3,M4, VEH, TYPE, 
PSS siOT ,AETSHOT,PROJO. 

6 OP] RNG  MKILE, 2RIcL, MPRILG .hIibb, Pron. conr, 
MZL.VEL, AND DUMMY AS 

47 INTEGER VARIABLES 

48 DEFINE HIT.STATE AS AN ALPHA VARIABLE 

49 EVENT NOTICES INCLUDE STOP.SIMULATION AND ATTRITION. 
CHECK 

50 EVERY HIDE HAS A COVER AND A CODE 

Sl SERV SPINA. DEATH HAs AVPURPOOe 


pve EVERY LOC.UPDATE HAS A VEHICLE 
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5) EVERY “SRP. TIME HAS A ENTIRE. TANK 


54 EVERY DETECT HAS A WHOLE.TANK AND A DET.FOE. 
ENTIRE. TANK 

55 EVERY TARGET.SELECT HAS A FIRING. TANK 

56 EVERY FIRE HAS A SHOOTING. TANK AND A CORE.POINTER. 
One ©GT. 1D 

5/ EVERY IMPACT HAS A TANK. THAT.SHOT AND A BLOCK. 


POUNTER.OR. TGT. ID 
58 DEFINE LOS AS A FORTRAN ROUTINE GIVEN 9 ARGUMENTS 
59 DEFINE ELEV AS A FORTRAN ROUTINE GIVEN 3 ARGUMENTS 
60 DEFINE SETUP AS A FORTRAN ROUTINE GIVEN 0 ARGUMENTS 
61 TALLY LIN AS THE NUMBER OF POT ilo 


62 END 


Lines 15-16 allow the use of the words BLUE and RED 
throughout the program wnen referring to a TANK's color. 

Lines 17-18 define sets owned by the system, as opposed 
to those owned by entities. 

Lines 19 and 21 declare DS1 and DS2 as packed integer 
arrays. 

Line 23 informs the system that the list routine option 
is desired. This option allows the user to print all arrays 


and contents of sets using simplified commands. 
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iiine 25 establishes set ownership of the company sets 
by permanent entities called COMPANY.COMMANDERs. 

Lines 40-41 allow the temporary entities, TANKs, to 
belong to a variety of sets. 

Line 61 establishes a SIMSCRIPT statistical routine 
which counts the number of times that the line of sight 


moucine is called. 


B. MAIN PROGRAM 
Description 

The MAIN program of the STAR model prepares the model 
hor execution. The arrays that were defined in the PREAMBLE 
are dimensioned to the appropriate size by the dee oe the 
RESERVE statement. The MAIN program calls the FORTRAN 
routine SETUP which prepares the appropriate data for the 
FORTRAN routines LOS and ELEV. The MAIN program sets the 
initial values of the variables globally defined in the 
PREAMBLE by use of the LET or READ statement. 

A Major function of the MAIN program 1S to create the 
entities, sets, and attributes derined in the PREAMBLE. ‘Two 
Separate DO LOOPs exist in the STAR MAIN program for creation 


of entities. The first creates every BLUE weapon system 





to be Simulated, reads or sets the initial values of the 
weapon system attributes and files the entity created in the 
appropriate sets. The second DO LOOP performs the same 
function for RED weapon systems in the simulation. 

The final function of the MAIN program is to schedule 
those events which must be executed immediately upon start 
of the simulation. 

Local Variables 

The following are local variables of the MAIN program: 

I - An integer variable used as a counter in the DO 
LOOPs which create the entities of the simulation, and as 
a counter in the loop which sets the initial values in the 
random number streams used in the simulation. 

J - An integer variable used as a counter in the loop 
which sets the initial values in the random number streams 
used in the simulation. 

PNUM - An integer variable read by the MAIN program 
which indicates the number of platoon sets (PLT.UNIT) to be 
created. 

CNUM - An integer variable read by the MAIN program 
which indicates the number of company sets (COMP.UNIT) to 


be created. 
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The coding for the MAIN program is shown below, followed 
by a brief explanation: 
1 MAIN 
2 DEFINE I,J,PNUM,AND CNUM AS INTEGER VARIABLES 
S  SheaRvE Dol, *) As 15 BY 24 
4 RESERVE P.V(*) AS 1 
5 RESERVE ZH(*) AS 1 
6 RESERVE DS2(*,*) as 9 BY 4o 
7 RESERVE TARGET(*,*) AS 250 BY 2 
8 RESERVE TEMP.TGT(*) AS 150 
9 RESERVE QQ(*) AS 9 
10 LET QQ(1)= "XML" 
11 LET QQ(2)= "XML" 
Pere eC) ir" 
ie ti! Qos Ty 
14 LET QQ(5)="DVAD" 
15 LET QQ(6)="DRAG" 
io oboe 7 = "172" 
17 LET QQ(8)="BMP” 
Is) Ge! CIE) CSM asion 
LG Chl sh UL 


ZO ae a ON ALIVE, BoNUM SALES. DEE TA, 7 
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2a 
22 
25) 
24 
2 
26 
ag 
28 
ZB 
30 
31 
32 
33 
34 
Ss) 
36 
3G 
38 
oY) 
LO 
1 


42 


READ PNUM, CNUM 

LET N.PLATOON.LEADER = PNUM 

LET N.COMPANY.COMMANDER = CNUM 
CREATE EVERY PLATOON.LEADER 

CREATE EVERY COMPANY .COMMANDER 
READ X:STOP, Y.STOP, R.PCT.AM?T, peren, ATT 
READ DS1 

READ DS2 

RESERVE BBBPOINT(*) AS R.NUM. ALIVE 
RESERVE RRRPOINT(*) AS B.NUM. ALIVE 
Le iewenes. 7=70 

LEP eee ieee 200 

Pe Peenmimmet), VALUE = .2 

LET B.AREA=90. 

LET R.AREA=90.0 

LET AREA = B.AREA 

PaveeolstAtvme= COS.F((ARBA/360.0)% 2.0 * PLC) 
Per Wek. = 250 

LET NNN=2. 

LET LIN=0 

LET MMM=6. 


ber Res COUNT =—0 


D5, 





43 
dy 
Ls 
46 
47 


48 


LAT BOxCOUNT 


li 
oO 


Ba eek = 1 


BOR 1 =i TO B.NUM.ALIVE, DO 


LET RC.COUNT ROVEOGNT + 1 


CREATE A TANK 


READ NAME(TANK), COLOR(TANK), WPN.TYPE(TANK), VEH. 


TYPE(TANK), AP. TOW(TANK), 


49 


HE.DRAG(TANK), AW1.OR.MSL3(TANK), AW2.0R.ADM( TANK) , 


SEC (TANK), PLT( TANK), 


50 


CO(TANK), BN(TANK), RGT(TANK), BDE(TANK), DIV(TANK), 


X.CURRENT( TANK), 


uk 


Y.CURRENT( TANK), SPD(TANK), DIR.OF.MVMT(TANK), PRI. 


DIR(TANK), MI(TANK), 


oye 


M2( TANK) ,M3( TANK) ,M4( TANK) ,COCDR( TANK) , PLTLDR( TANK) , 


SECLDR ( TANK) 


ae, 
54 
2D 
56 
Dt 
58 


a7 


, OP.RNG( TANK) 

LET DEFNUM(TANK) = 2 
RESERVES Bbiol(*) AS 1 
Lan bom) =o 

LET HTO(TANK) = 3.0 


it ee TtANK \e— 3.0 


2 
va 


LET POINTER ( TANK) 





60 LET RRRPOINT(I) = TANK 
moe eteneeT( l,l) = LIST(*) 
ee GET LIST(*) = 0 

eo, LET TARGET(T,2) = TANK 


64 LET DIR.OF.MVMT(TANK) = DIR.OF.MVMT(TANK) * 2 * PTI, 
C/6400.0 

65 LET PRI.DIR(TANK)=PRI.DIR(TANK)*2*PI.C/6400.0 

66 LET COCDR(TANK) = RRRPOINT(COCDR( TANK) ) 


67 LET PLTLDR( TANK) 


RRRPOINT( PLTLDR (TANK) ) 


68 LET SECLDR( TANK) 


FY 


RRRPOINT(SECLDR (TANK) ) 

69 FILE TANK IN TANKS 

70 FILE TANK IN BLUE. ALIVE 

71 FILE TANK IN PLT.UNIT(PLT(TANK) ) 

72 FILE TANK IN COMP. UNIT(CO(TANK)) 

73 LOOP 

74 FOR I = B.NUM.ALIVE+1 TO B.NUM. ALIVE+R.NUM. ALIVE, DO 

75 LET BC.COUNT = BC.COUNT + 1 

76 CREATE A TANK 

77 READ NAME(TANK), COLOR(TANK), WPN.TYPE(TANK), VEH. 
TYPE(TANK), AP. TOW(TANK), 

78 HE.DRAG(TANK), AWL.OR.MSL3(TANK), AW2.OR.ADM(TANK) , 


SEC (TANK), PLT( TANK), 
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79 CO(TANK), BN(TANK), RGT(TANK), BDE(TANK), DIV(TANK), 
X.CURRENT( TANK) , 

80 Y.CURRENT(TANK), SPD(TANK), DIR.OF.MVMT(TANK), PRI. 
DIR(TANK), M1(TANK), 

81 M2( TANK) ,M3( TANK) ,M4( TANK) ,COCDR( TANK) , PLTLDR( TANK), 
SECLDR (TANK) 

82 , OP.RNG( TANK) 

83 LET DEFNUM(TANK) = 5 

84 RESERVE LIST(*) AS 1 

85 LET LIST(1) = 0 

86 LET HTO(TANK) = 3.0 


o7. ube HTTET (TANK) = 3.0 


88 LET POINTER( TANK) TANK 


89 LET BBBPOINT(I-B.NUM.ALIVE) = TANK 


fo” CE Perea R Ghee) = homes) 
pi Le pS hee) = <6 
pe LEP PARGH ii, 2) = TANK 


63 eT SPERTANK) = 5.0 

94 LET DIR.OF.MVMT(TANK) = DIR.OF.MVMT(TANK) * 2 * PT. 
C/6400.0 

95 LET PRI.DIR( TANK) =PRI.DIR(TANK)*2*PI.C/6400.0 


96 LET COCDR(TANK)=BBBPOINT(COCDR( TANK) -B.NUM. ALIVE) 
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97 LET PLTLDR(TANK)=BBBPOINT( PLTLDR( TANK) -B.NUM. ALIVE) 
98 FILE TANK IN TANKS 
99 FILE TANK IN RED.ALIVE 
100 FILE TANK IN PLT.UNIT(PLT(TANK)) 
101 FILE TANK IN COMP.UNIT(CO(TANK)) 
102 LOOP 
103 FOR EACH TANK IN BLUE.ALIVE, DO 
104 CALL ELEV GIVEN X.CURRENT(TANK), Y.CURRENT( TANK), 
ZH ( *) 
Hos IF ZH(1) LE 250.0 LET ZH(1) = 250.0 ALWAYS LET 
Z.CURRENT( TANK) = ZH(1) 
106 LOOP 
im? FOR — = 1 70 9, FOR J = 1 TO 10; LET KX=UNIPORM. 
mo. ,1.,1) 
108 FOR EACH TANK IN TANKS LET PRI.DIR(TANK) = PRI.DIR 
(TANK) + DIR.OF.MVMT( TANK) 
109 FOR EACH TANK IN TANKS CALL SET.SECTOR( TANK) 
110 FOR EACH TANK IN RED.ALIVE SCHEDULE A LOC.UPDATE 
(TANK) NOW 
111 FOR EACH TANK IN BLUE.ALIVE LET STEPS(TANK) = 1 
112 PRINT 1 LINE THUS 


Bi) PIR TYPE AM TGT TYPE TIME.V STAT RANGE X-FIR Y-PIR 4£-¢T 


Y-TGT 55, 





113 FOR EACH TANK IN BLUE.ALIVE SCHEDULE A STEP. TIME( TANK) 
NOW 


114 SCHEDULE AN ATTRITION.CHECK IN 10.0 * DELTA.T UNITS 


5 START SIMULATION 
imi “STOP 
ie? 6SND 


Lines 1-2 define the MAIN program and local variables. 

Lines 3-8 dimension the numeric arrays defined in the 
PREAMBLE. 

Lines 9-18 dimension the alphanumeric array QQ and place 
the appropriate alphanumeric characters in the array 
focations. 

mine 19 calls the FORTRAN routine SETUP. 

Line 20 reads the initial number of RED and BLUE systems 
in the simulation and the time increment for the simulation. 
Line 21 reads the number of platoon and company sets 

to be created. 

Lines 22-25 create the platoon leader and company commander 

entities and Simultaneously create subscripted company and 


pilkatoon Sets. 


58 





Line 26 reads the X and Y coordinates used for stopping 
criteria, and reads the percent attrition for BLUE and RED 
systems to be used as a stopping eritcaes 

Lines 27-28 read in values of the danger state arrays. 

Lines 29-30 dimension the arrays BBBPOINT and RRRPOINT. 

Lines 31-44 set initial values for PREAMBLE defined 
global variables. 

Lines 45-53 create each entity representing the BLUE 
weapon systems and read in initial attribute values. 

Mines 54-630Set Anitial attribute: valuesmor thementities 
created, initialize the target list for each entity created 
(LIST) and place the appropriate pointer values in the array 
TARGET. 

Ganes 64-65 convert the value of PRI.DIR and DIR.OF. MVM? 
attributes from mils to radians 

Lines 66-68 convert the attributes COCDR, PLTLDR, and 
SECLDR (which were read in as vehicle numbers) to the proper 
pointer value of the entitysS company commander, platoon 
leader and section leader. 

Lines 69-73 place the entity created in the appropriate 


sets and loop back to line 45. 


De, 





Lines 74-82 create each entity representing RED weapon 
systems, and read in the initial attribute values. 

Lines 83-93 set initial values of the attributes of the 
Pmtities created, initialize the target list for each 
entity (LIST) and place the appropriate pointer values in 
the array TARGET. 

Lines 94-95 convert the PRI.DIR and DIR.OF.MVMT attributes 
to radians. 

Lines 96-97 convert the COCDR, and PLTLDR attributes to 
the proper pointer value of the entity's platoon leader or 
company ene 

Lines 98-102 file the entity in the proper sets and 
oop back to line 74. 

Lines 103-106 set initial elevation for the BLUE elements 
by calling the FORTRAN routine ELEV. 

Line 107 sets the starting values in each of the random 
number streams used in the simulation. 

Line 108 sets the PRI.DIR attribute of each entity to 
the form used in routine SET.SECTOR. 

finie 109Mcalils routine SET. sECTORsior every entity, “whatem 


sets the limits of the entity's Search sector. 


60 





Pee 110 schedules event LOC.UPDATE to occur for every 
RED weapon system immediately upon start of the simulation. 

Mine L1i sets the STEPS attribute for each BLUE entity. 

Line 112 prints the column headings for printed output. 

line 113 schedules event STEP.TIME to occur for every 
BLUE weapon system immediately upon start of the simulation. 

Line 114 schedules event ATTRITION.CHECK to occur ata 
time ten times DELTA.T into the simulation. 

imanie 215 Stargs the simulation. 

Lines 116-117 are the required MAIN program control 


statements. 


oe VENT LOC.UPDATE 
Description 

mvent LOC.UPDATE as called every DELTA. YT units by the 
system timer and is used to update the x, Y, and Z coordinates 
oe eacn RED TANK that is currently alive. This event in- 
Sures that all positions have been updated prior to the 
execution of event STEP.TIME. 
Local Variable 


The following is a local variable of this routine: 
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TANK - An integer variable containing the pointer value 
of the weapon system for which a location update is required. 
Coding and Brief Explanation 

The coding for event LOC.UPDATE is shown below, 
followed by a brief explanation: 

1 UPON LOC.UPDATE( TANK) 

2 DEFINE TANK AS AN INTEGER VARIABLE 

3 IF ALIVE.DEAD(TANK) EQ 1 RETURN ELSE 

4 CALL LOC (TANK) 

5 SCHEDULE A LOC.UPDATE(TANK) IN DELTA.T UNITS 


6 RETURN END 


Lines 1-2 define the event and local variable. 

Line 3 tests the ALIVE.DEAD attribute of the TANK to 
prevent dead TANKs from having their locations updated. 

Line 4 calls routine LOC which calculates new X, Y, and 
meecoordinates for the TANK. 

Lines 5-6 reschedule another LOC.UPDATE for this TANK 
in DELTA.T units (currently 30 seconds). Control is then 


returned to the system timer. 
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Bee BVENT STEP. TIME 
Description 

Event STEP.TIME is used by STAR to generate detections 
of battlefield elements by one another. STEP.TIME is 
scheduled to occur every DELTA.T units (currently 30 seconds) 
and affects all TANKs which are alive at the beginning of 
mie bime period. Prior towSTEP.TIME, each TANK's X, Y, and 
Z coordinates are updated by event LOC.UPDATE. 

Fach BLUE TANK that enters event STEP.TIME has the 
opportunity to schedule a detection on a RED TANK. Like- 
wise, each RED TANK has the opportunity to schedule a de- 
tection on the BLUE TANK that generated the STEP. TIME 
event. Detection times are generated by routine CARDIO 
which is discussed in a subsequent section. 

Range, sector, and time filters are used by event 
fier. tiME to prevent unnecessary line of sight calis. 
Although the current line of sight algorithm (FORTRAN 
memtine LOS) is very efficient, it stihl requires many 
calculations. Consequently, the filters mentioned above 


and described in the coding section below are important in 


Beavicings execution time. 
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Local Variables 

The following are local variables of this event: 

A - An integer variable containing the pointer value of 
the BLUE TANK which generated the current STEP.TIME event. 
Note that the global variable TANK represents RED TANKs in 
this event. 

ANSWER - An integer variable which is assigned a value 
of 1 if a target is in the observor's search sector, and 0 
otherwise. 

LOSE - An integer variable which is assigned a value of 
1 if line of sight exists between two elements, and 0 
otherwise. 

R - A real variable representing the range in meters 
between two TANKs. 

RN.B - A real variable assigned a random value from a 
mpitorm (O,l)@preobability distribution. Thistvalue is 
passed as an argument to routine CARDIO. 

RN.R - A real variable with the same characteristics as 
RNR. 

BDET.TIME - A real variable, which when returned from 
routine CARDIO, represents the time required to detect a 


RED TANK by a BLUE TANK. 
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Pophtie - Similar to BDET.TIME except that it is used 
for RED TANKs detecting BLUE TANKs. 
Pogins and Brier Explanation 
iiescodane for event STEP.TIME is shown below, followed 
by a brief explanation: 
1 UPON STEP. TIME(A) 
2 DEFINE ANSWER AS AN INTEGER VARIABLE 
3 DEFINE RN.B, RN.R, AND R AS REAL VARIABLES 
4 DEFINE LOSE AND A AS INTEGER VARIABLES 
5 SSEEINE RET. TIME AND BDET.TIME AS REAL VARIABLES 
CO etmniwoithPs (A)=sTEPS(A)-1 
7 vk BDET. TIME=99 LET RDET TIME 300 ae 
6 IF ALIVE. DEAD(A) EQ 1 RETURN ELSE 
Oo [eal scree o * DELTA, T 
10 LET LIST(*) = TARGET(NAME(4991) 


11 IF DEFNUM(A) EQ 1 RELEASE LIST(*) RESERVE LIST(*) 


12 LET BAReeT NAMBCA),1) = Lise) =O ie ei 
GO TO NORMAL 

I. ELSE 

14 IF LIST@L) = 0 


TS-CALL CHG.SEC.SEARCH(A) 
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16 ALWAYS 

17 LET LIST(*)=0 

18 REGARDLESS 

19 ‘NORMAL’ 

20 FOR EACH TANK IN RED.ALIVE, DO 

21 IF N.BLUE.ALIVE EQ A AND TIME.V GE 2.0 * DELTA.T 

22 LET LIST(*) = TARGET(NAME(TANK),1) 

23. IF LIST(1) = 0 

24 CALL CHG.SEC.SEARCH (TANK) 

25 ALWAYS 

26 LET LIST(*)=0 

27 ALWAYS 

28 LET RN.B= UNIFORM.F(0.,1.,7) 

29 LET RN.R= UNIFORM.F(0.,1.,7) 

30 IF (Y¥.CURRENT(TANK) + X.CURRENT(TANK)/2.0) LE 8000.0 

31 LET ALIVE.DEAD(TANK) = 1 REMOVE TANK FROM RED. ALIVE 
GO TO LOOP ELSE 

32 CALL DIST(X.CURRENT(A) ,Y¥.CURRENT(A) ,X.CURRENT( TANK), 
Y.CURRENT(TANK)) YIELDING R 

33. IF OP.RNG(A) + W.K.C. GP R CALL SECTOR.CHECK(A, TANK) 


YIELDING ANSWER 
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34 IF ANSWER EQ 1 CALL CARDIO(A,TANK,R,1.0,RN.B) 
YIELDING BDET. TIME 

35 ELSE ALWAYS 

36 ALWAYS 

37 IF OP.RNG(TANK) + W.K.C. GT R CALL SECTOR. CHECK(TANK, 
A) YIELDING ANSWER 

38 IF ANSWER EQ 1 CALL CARDIO(TANK,A,R,1.0O,RN.R) 
YIELDING RDET. TIME 

39 ELSE ALWAYS 

Lo ALWAYS 

4) IF BDET.TIME LT DELTA.T OR RDET.TIME LT DELTA.T 

42 CALL LOS GIVEN X.CURRENT(A),Y.CURRENT(A),Z.CURRENT 
(A) ,HTO(A),X.CURRENT( TANK) , 

43  Y.CURRENT( TANK) ,Z.CURRENT( TANK) ,HTTGT( TANK) ,P.V(*) 

eter. vls=P. V1) 

is ie PCT. Vis GT CRITICAL. VALUE LET B0se-oUNeee nea 
ELSE LET LOSE=0 HERE 

46 '‘SCHEDULE' IF LOSE EQ 1 AND BDET.TIME LT DELTA.T 

47 CALL CARDIO(A,TANK,R,PCT.VIS,RN.B) YIELDING BDET. TIME 

48 IF BDET.TIME GT DELTA.T JUMP AHEAD ELSE | 

49 SCHEDULE A DETECT(A,TANK) IN BDET. TIME UNITS , 


SO) fell sae, 
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51 REGARDLESS 
52 IF LOSE EQ 1 AND RDET.TIME LT DELTA.T 

53 CALL CARDIO(TANK,A,R,PCT.VIS,RN.R) YIELDING RDET. TIME 
54 IF RDET.TIME GT DELTA.T JUMP AHEAD ELSE 

55 SCHEDULE A DETECT(TANK,A) IN RDET.TIME UNITS 

56 HERE 

57 REGARDLESS 

58 ALWAYS ‘'LOOP' LOOP 

59 .IF STEPS(A) GE 2 RETURN 

60 ELSE SCHEDULE A STEP.TIME(A) IN DELTA.T UNITS LET 


STEPS (A)=STEPS(A)+1 RETURN END 


Lines 1-5 define the event and local variables. 

Line 6 decrements the steps attribute for the BLUE TANK 
Maat generated the current STEP.TIME. 

Mane 7 assigns default values to BDETOTME and soa! wire 

iaine 8 insures that the BLUE TANK is still alive prior 
to proceeding. 

Lines 9-19 perform several tests after simulated time 
has reached 60 seconds. If a BLUE TANK is in full defilade, 
his detected list is purged. This simulates the loss of 
information which accompanies being in a position from which 


imine Of Sight does not exist. if the BLUE TANK is new in 
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fubiscetilade, but his detected list is empty, his sector of 
search is changed in attempt to acquire new targets ina 
different search area. BLUE TANKs then attempt to schedule 
DETECT events in the usual manner. 

Line 20 effects sequential access to the RED TANKs which 
are still alive. 

Lines 21-27 change the search sector for those RED TANKs 
whose detected lists are empty. Note that this is accom- 
plished only when the first BLUE TANK accesses the set of 
RED TANKs. 

Lines 28-29 draw random numbers for use by routine CARDIO. 

Lines 30-31 prevent RED TANKs from moving off the aoe 
By setting the ALIVE.DEAD attribute to 1 when a RED TANK 
reaches the stopping point, the simulation is prevented from 
executing indefinitely since the RED attrition percentage 
will eventually reach 100 percent. 

Line 32 calculates the current range between two TANKs. 

Lines 33-36 insure for BLUE TANKs that a potential 
detected target is within range and within sector. If this 
memune casewerousine CARDIO is called with 100 percent 
visibility assumed. This generates a best case detection 


Game. 
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Lines 37-40 perform the above tests for RED TANKs 
detecting BLUE TANKs. 

Lines 41-45 call FORTRAN routine LOS if either potential 
detect time calculated above was less than DELTA.T seconds. 
ame of sight exists if the percentage of the target visible 
to the observer is greater than a user defined value 
Menurrently .2). 

Line 46 insures that line of sight exists between the 
BLUE observer and the RED target, and that the potential 
detection time is less than DELTA.T seconds prior to 
calling routine CARDIO again. 

Line 47 calls routine CARDIO and returns with a detection 
meme for BLUE detecting RED. 

Lines 48-50 schedule a detection in the amount of time 
returned by routine CARDIO if this time is less than DELTA.T 
seconds. 

Lines 51-57 are similar to lines 46-50 except that they 
apply to RED TANKs observing BLUE TANKs. 

Lines 59-60 schedule another STEP.TIME event in DELTA.T 
seconds if the BLUE TANK has fewer than 2 STEP.TIME events 


scheduled. Control is then returned to the system timer. 
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me 6S VENT DETECT 
Description 

Event DETECT is scheduled by events STEP.TIME and IMPACT. 
Normal detections using routine CARDIO are scheduled by 
event STEP.TIME, while detections as a result of being 
mered upon are scheduled by event IMPACT. Depending on the 
defilade conditions of the observer and target, line of 
Sight conditions between these two elements and proximity of 
other elements to the detected threat, detected elements may 
be added to the observer's detected list, target selections 
may be scheduled or near vicinity detections may be effected. 
Local Variables 

ae following a@re local variables of this roucinme- 

A - An integer variable containing the pointer value of 
the observer. 

B - An integer variable containing the pointer value of 
the target. 
Coding and Brief Explanation 

The coding for event DETECT is shown below, followed by 
a brief explanation. 

1 UPON DETECT(A,B) 


2 DEFINE A,B AS INTEGER VARIABLES 
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3. DEFINE J AS AN INTEGER VARIABLE 
4 IF ALIVE.DEAD(A) EQ 1 
5 RETURN 
eo PLSse 
fe DEPNUM(B) He 1) CALL LIST. UPDATE(O,4-5,0) 
RETURN ELSE | 
Smeerniineisoc (A) "CALL LOC(B) 
9 CALL LOS GIVEN X.CURRENT(A),Y.CURRENT(A),Z.CURRENT 
(A),HTO(A),X.CURRENT(B), 
mo 6 Y CURRENT(B) ,Z.CURRENT(B) | HTTCT(B),Puvets) 
eset ee eevts=P.V( 1) 
i iF POT. VIS GT CRITICAL. VALUE LET LINE.OF.SIGHT. 
EXISTS=1 JUMP AHEAD ELSE 
Po teT Live vOr. SIGHT. EXISTS=0~— Hare 
w4°> IF DEFNUM(A) BQ 1 CALL LIST. UPDATE (LINE Or .siGia. 
motsts,A,B,0) RETURN ELSH 
15 If LINE.OF.SIGHT.EXISTS EQ 1 CALI PROXIMIGY -Uereem 
(A,B) ALWAYS 
16 RETURN 
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Lines 1-2 define the routine and local variables. 

Lines 3-5 insure that the observer is still alive before 
proceeding. 

Line 6 tests the defilade condition of the target. If 
the target is in full defilade, (that is, he cannot be seen), 
then the observer is considered to have lost detection on 
this target and the target, if currently in the detected 
mot, is removed from the list. The first 0 argument in “the 
eal to routine LIST.UPDATE accomplishes this, while the 
second O argument in this call prevents a target selection 
from being scheduled. 

Line 7 updates the X, Y, and Z coordinates of the 
observer and target. 

Lines 8-12 determine if line of sight exists between 
the observer and target. 

Line 13 tests the defilade condition of the observer. 

If the observer is in full defilade, the detection may still 
occur if line of sight exists and the target is still alive. 

Lines 14-15 allow for the possibility of near vicinity 
HSecGeCtloms if line of Slight exists andMgne eeserver is nor 


maaetilade. Control is then returned to the system Gamer. 
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| 


| 


| fee EVENT TARGET.SELECT 


Description 


Event TARGET.SELECT is used by all weapon systems to 
mm ect targets on the basis of highest priority within 
range bands. For some weapons systems, the priority criteria 
my De abtered as a result of actions by other unit members. 
These actions are represented in several tactical target 
selection modules. The current version of STAR uses tactical 
target selection modules for the following weapon systems: 
XM1, IFV, ITV, T72, and BMP. These modules are presented 
in detail 9 ee sections. In general, all weapon 
systems using these modules attempt to select the highest 
priority target that 1s not being engaged by another unit 
member. IFVs, ITVs, and BMPs will not fire if all targets 
in their detected list are being engaged by other unit 
members. In contrast, XMls will always engage a target from 
their detected list assuming that the range and line of 
Sight filters are satisfied. An XMl1's engagement will 
be the highest priority threat not being engaged by another 
unit member or, if all threats are being engaged, the target 


Selected will be the highest priority threat in the detected 
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| 


| list. T72s always attempt to acquire the FOE of their 
meacoon leader. Failing this, a T72 will select its 
highest priority threat. 

| 

im, aiver a target is selected, line of sight) does not 
memos, the target is in full defiladé’ or the target has 
already been killed, the threat will be removed from the 
@irer’s detected list and a re-selection will be attempted. 

If all potential targets are outside the maximum 
engagement range of the firer, control is returned to the 
system timer. 

If a selection is accomplished, event FIRE is scheduled 
in the maximum of the time it takes to lay (aim) the weapon 
and load (prepare to fire) the weapon. 

Two points should be clarified with respect to the 
weariadle ANSWER. An ANSWER of O from routine T72.TACTICS 
indicates that the T72 has selected his platoon leader's 
FOE. An answer of 1 indicates the converse. Within the 
loop that sequentially accesses detected threats (lines 
27-47), an ANSWER of O means that the currently accessed 


miceat 1S Still a candidate for Selection. An ANSWER of 1 


causes this threat to be bypassed. In most cases the latter 
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result occurs when a threat is being engaged by another 
unit member. 

Event TARGET.SELECT is relatively complicated and a 
cursory look at the tactical target selection modules 
prior to reading this event is recommended. 

Local Variables 

The following are local variables of this event: 

A ~ An integer variable containing the pointer value of 
the selecting TANK. 

ID - An integer variable containing the pointer value 
of the selected TANK. 

I - An integer counter. 

ANSWER - An integer variable whose value is the result 
of a call to a tactical target selection module. See the 
Description section of this event for details. 

P - An integer variable which reflects the priority of 
the currently accessed threat in the detected list. 

OLDP - An integer variable which reflects the priority of 
the current candidate for selection. 

RND - An integer variable which contains a coded 
ammunition type. This ammunition is the type desired for 


use against the current candidate for selection. 
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ENGAGED - An integer variable which takes on the value 
mor l. Used exclusively for XML target selection, if 
ENGAGED is changed to O as a result of a call to routine 
XM1."ACTICS, only subsequent targets which are not being 
engaged will be candidates for selection. If ENGAGED 
remains 1, the XM1 will select the highest priority threat 
from his list, regardless of its engagement status. 

WHOCALLED - An integer variable which is assigned the 
merue | in event TARGET.SELECT. As an argument to routine 
LIST.UPDATE, a value of 1 for WHOCALLED prevents another 
MonGe cob LECT from occurring as a result of the detected 
list being updated. 

R - A real variable representing the range in meters 
between the selecting TANK and the currently accessed 
threat. 

OLD.RANGE - A real variable representing the range in 
meters between the selecting TANK and the most recent 
candidate for selection. 

Bodine and Brier Explanation 
The coding for event TARGET.SELECT is shown below, 


followed by a brief explanation: 


tee 





1 UPON TARGET. SELECT(A) 
2 DEFINE R, AND OLD.RANGE AS REAL VARIABLES 
3 DEFINE ANSWER, OLDP, P, RND, AIM, A, ID, I, ENGAGED, 
AND WHOCALLED AS INTEGER 
4 VARIABLES 
5 IF DEFNUM(A) = 1 RETURN ELSE 
6 IF ALIVE.DEAD(A) EQ 1 RETURN 
7 ELSE 
8 IF FIP(A) EQ 1 RETURN 
9 ELSE 
10 IF SCHED(A)=1 
ll RETURN 
12 ELSE 
13 IF WPN.TYPE(A) EQ 7 CALL 172.TACTICS(A) YIELDING 
ANSWER 
14 IF ANSWER EQ 0 RETURN ELSE 
15 ALways 
16 ‘SELECT’ 
Cen OG 4) 
18 ‘TRY.AGAIN’ 
19 LET LIST(*)=TARGET(NAME(A),1) 


Po ae hiSsrh( 1) EQ 0 
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ell 
2a LIST(*) 20 


22 RETURN 

Bo ELSE 

24 LET ENGAGED = 1 LET WHOCALLED = 1 LET OLDP = 99 
LET OLD.RANGE = 99999 

25 FOR I=l TO DIM.F(LIST(*)), DO 

PomeCALL LOC (LISD(1)) 

27 CALL DIST(X.CURRENT(A),Y.CURRENT(A) ,X.CURRENT 
(POINTER(LIST(I))), 

28 Y.CURRENT(POINTER(LIST(#)))) YIELDING R 

29 LET RANGE(A) = R 

30 GO TO XML, XMl1, IFV, ITV, DIVAD, DRAGON, 172, BMP, 
ZSU PER WPN.TYPE(A) 

31 ‘IFV' CALL IFV.TACTICS(A,LIST(I)) YIELDING ANSWER 
GO TO NEXT 

32 ‘'ITV' CALL ITV. TACTICS(A,LIST(I)) YIELDING ANSWER 
GO TO NEXT 

33. 'DIVAD' LET ANSWER = 0 GO TO NEXT 

34 'DRAGON' LET ANSWER = 0 GO TO NEXT 

35 '172' LET ANSWER = 0 GO TO NEXT 

36 'BMP' CALL BMP. TACTICS(A,LIST(I)) YIELDING ANSWER 


fo TO NEXT 


fie) 





cae) ZOU LEDANSWER = 0 GOVTO NEXT 

28 ‘NEXT' IF ANSWER EQ 1 GO TO LOOP ELSE GO TO NORMAL. 
SaLeCT 

39 'XM1' CALL XM1.TACTICS(A,LIST(I)) YIELDING ANSWER 

40 'NORMAL.SELECT' CALL PRIORITY.AND.ROUND.SELECT(A, 
fieot(t)) YIELDING P, RND 

41 IF P EQ 99 GO TO LOOP ELSE 

42 IF ANSWER LT ENGAGED GO TO REPLACE ELSE 

43 IF (( P LT OLDP) OR (P EQ OLDP AND R LE OLD. RANGE)) 
AND (ANSWER EQ ENGAGED) 

44 'REPLACE' LET OLDP=P LET OLD.RANGE=R LET PROJO(A)= 
eye LET ID=LIST(1) 


45 LET =NGAGED ANSWER REGARDLESS 'LOOP' LOOP 


46 LET LIST(*) Q 


472 IF OLD.RANGE LE OP.RNG(A) 

48 JUMP AHEAD 

49 ELSE 

50 RETURN 

pie fies 

52 CALL LOS GIVEN X.CURRENT(A),Y.CURRENT(A) ,Z.CURRENT 


(A),HTO(A), 
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53 X.CURRENT(ID) ,Y¥.CURRENT(ID) , Z. CURRENT(ID), 
HTTCT(ID),P.V(*) 

6) LET PCT. VIS=P.V(1) 

55 IF PCT.VIS GT CRITICAL. VALUE LET LINE.OF.SICHT. 
EXISTS=1 

56 JUMP AHEAD ELSE 

57 LET LINE.OF.SIGHT.EXISTS=0 HERE 

88 IF LINE.OF.SICGHT.EXISTS EQ 0 

39 OR ALIVE.DEAD(ID) FQ 1 

60 OR DEFNUM(ID) EQ 1 

61 CALL LIST.UPDATE(0,A,ID,WHOCALLED) 

62 CO TO TRY. AGAIN 

o> ELSE 

64 LET RANGE(A) = OLD.RANCE 

65 LET FOE(A)=ID 

66 LET SCHED(A)=1 

67 SCHEDULE A FIRE(A,ID) IN MAX.F(UNIFORM.F(10.,20.,3), 
UNIFORM.F(8.,16. ,4)) 

68 UNITS 

69 LET CHECK.TIME(A) = TIME.A(FIRE) 

70 RETURN 

71 END 
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Lines 1-4 define the event and local variables. 

Pico i return comtrol to the system timer if the 
Bebecting TANK is in full defilade, is dead, has a firing 
in progress, or has a fire scheduled. 

Lines 12-16 apply only to weapons of type 1772. The 
T72 attempts to acquire his platoon leader's FOE and 
penedule a FIRE event on this target. if this occurs, 
control is returned to the system timer. Otherwise, the 
M72 selects his highest priority threat in a mMmanner similar 
to other weapon systems. 

Lines 17-23 update the X, Y, and Z coordinates of the 
selecting TANK and access the TANK's list of detected 
@mreats. If the list contains no potential targets, control 
returns to the system timer. Otherwise, execution continues. 

Line 24 sets default values for local variables. 

Line 25 sequentially accesses elements in the TANK's 
list of detected threats. 

Lines 26-29 update the X, Y, and Z coordinates of the 
currently accessed threat. The range between the TANK and 
this threat is calculated and the TANK's RANGE attribute 


1s set to this value. 
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Line 30 transfers control to the appropriate label based 
on the weapon type of the TANK. 

ibnies j1=37 call a tactical target seleetionsmedule, if 
Bequired, and transfer control to the label *®NEXT'., 

Line 38 tests the ANSWER returned above and transfers 
Bomcrol to label ‘'LOOP' if ANSWER = 1, or to label ‘NORMAL. 
SELECT’ if ANSWER = 0. 

Line 39 calls the tactical routine for XMls. 

Line 40 returns a priority and desired ammunition type 
to be used against the current threat. 

ime +i transters control to label ‘LOOP’ if thempriori ay 
returned is equal to 99. This indicates that the tarcet 
cannot be engaged. 

Line 42 allow XMls to give higher priority to targets 
which are not being engaged. Any target not being engaged 
can replace a target which is being engaged. 

Line 43 tests the values of P, R, and ANSWER against the 
values of OLDP, OLD.RANGE, and ENGAGED. To replace a threat 
as the current candidate for selection, the target must 
have a higher priority or, if it has the same priority, must 
be closer in range. Moreover, it must have the same engage- 


ment status as the current threat. This last condition 
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is always satisfied for weapons other than XMls. If the 
Mest tails, control transfers to label 'LOOP'. 

Lines 44-45 set local variables to values associated 
with the new threat. If the threat list has not been 
exhausted, the cycle begins again with line 27. 

Line 46 releases the list of detected threats. 

Lines “7~51 insure that the range to the selected 
threat is within the opening range of the TANK. If not, 
control returns to the system timer. Otherwise, execution 
Sonvinues. 

Lines 52-57 calculate the percentage of the target 
Visible to the selecting TANK. Line of sight is set to l 
if the percentage returned exceeds a user defined value. 

Lines 58-62 remove the currently selected threat from 
the list and allow another selection (label 'TRY AGAIN') 
if the selected threat is dead, is in full defilade or 
cannot be seen. 

lines 63-66 set the TANK’s RANGE attribute to the current 
range to the target, set the FOE attribute to the pointer 
value of the target, and set the scheduled to fire attribute, 


pene); to ov, 
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Lines 67-70 schedule a FIRE event on the selected 
target, set the TANK's CHECK.TIME attribute to the time 
for which the FIRE event is scheduled to occur, and 


@ecurn control to the system timer. 


me EVENT FIRE 
Description 

Event FIRE may be scheduled by event TARGET.SELECT, 
Boucine T72.TACTICS, and routine WE.MISS. Event FIRE is 
scheduled in the maximum of two times: the time it takes 
Ge aim the weapon (lay time), and the time it takes to 
prepare the weapon for firing (load time). For second 
round shots at the same target after a miss, only load 
time is considered. The weapon is assumed to be laid on 
the target. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
the firing TANK. 

ID - An integer variable containing the pointer value 


of the target TANK. 
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STOPCOUNT - An integer variable with a value of 1 when 
used in event FIRE. This value is used as an argument in 
routine STOP.TO.FIRE to indicate that the weapon system 
Sesey SLOP prior to firing. 

Coding and Brief Explanation 
The coding for event FIRE is shown below, followed by 
Bepriet explanation: 
1 UPON FIRE(A, ID) 
2 DEFINE STOPCOUNT AS AN INTEGER VARIABLE 
3 DEFINE A AS AN INTEGER VARIABLE 
4 DEFINE ID AS AN INTEGER VARIABLE 
E DEFINE R AS A REAL VARIABLE 
ee) seh Dy A) =O 
7 LET STOPCOUNT=1 
Sepir DEP NUMA) EQ 1 LET FCE(A) = 0 RETURI Semon 
9 IF DEFNUM(ID) EQ 1 GO TO RE.SELECT ELSE 

10 CALL LOC(A) CALL LOC(ID) 

Jk IF FOE(A) NE ID RETURN 

LZ ELSE 

13 IF CHECK.TIME(A) NE TIME.V RETURN ELSE 

14 IF FIP(A) EQ 1 RETURN ELSE 


Se ev DEAD Ay hO PRE URN 
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16- ELSE 

77 IPSALTVE.DEAD(ED) EQ 1 

18 'RE.SELECT' 

io mem FOR(A) = 0 

20 LEDSSECOND.SHOT(A)) = 0 

21 LET FIP(A) = 0 

22 SCHEDULE A TARGET.SELECT(A) NOW 

23 RETURN 

24 ELSE 

25 Ween Diist(X.CURRENT(A), Y.CURRENT(A),X.CURRENT 
(POINTER(ID)), 

26 Y.CURRENT(POINTER(ID))) YIELDING R 

27 Ieee? OP VRNG( A) 

Zo ree P(A) =0 

29 LET FOE(A)=0 

30 SCHEDULE A TARGET.SELECT(A) NOW 

31 RETURN 

32 ELSE 

33 CALL LOS GIVEN X.CURRENT(A),Y.CURRENT(A),2Z.CURRENT 
oo), HOA), X.CURRENT(ID), 


Se CURRED) | Ze CURRENG GRpie TUG i ahh ieee. a) 
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Sis 
ate 
p/ 
38 
39 
LO 
41 
42 
TYPE (A) 
2 
HY, 
1S 
L6 
47 


48 


Sig@eec?. VIS=P.V(1) 


ieee, i toe CRUTiICAL. VALUE 

ComLOVRE Scheer 

ELSE 

IF COLOR(A) EQ BLUE LET DEFNUM(A) = 3. ALWAYS 


LET FIP(A) = 1 


LET RANGE(A) R 

IF WPN.TYPE(A) EQ 8 OR WPN.TYPE(A) EQ 3 OR WPN. 
EQ 4 

CALL STOP.TO.FIRE(A,STOPCOUNT) 

ALWAYS 

CALL SET. MUZZLE. VEL(A) 

SCHEDULE AN IMPACT(A,ID) IN R/MZL.VEL(A) UNITS 


RETURN 


END 


Itines I=6 define the routine and local svariacles. 


Line 7 resets the scheduled to fire attribute to O. 


Line 8 assigns STOPCOUNT a value of l. 


Line 9 tests to insure that the firer 1s not in full 


defilade before proceeding. 
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Line 10 tests to insure that the target is not in full 
meetlade before proceeding. If the target is in full 
defilade, flow is transferred to a point where another 
tank selection can be made (see label 'RE.SELECT'). 

ame Ii updates the X, Y, and Z coordinates ofthe firer 
and target. 

Lines 12-13 insure that the current FOE is the one for 
which this FIRE event was scheduled. 

Line 14 insures that this is the correct FIRE event by 
matching elapsed simulated time with the time that this 
tank's last fire was scheduled GO (OCC Um: 

ime IS prevents this FIRE if the firer already, nase 
mering in progress. 

Lines 16-17 prevent this FIRE if the firer is dead. 

Lines 18-25 prevent this FIRE if the target is already 
Mead. if this is the case, the firer's FOE, SECOND: SHOT, 
and firing in progress attributes are reset to 0. An 
immediate target selection is scheduled, and control is 
returned to the system timer. 

Lines 26-27 calculate the current distance in meters 


between the target and firer. 
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TS 28-31 insure that the target is within the maximum 
Bpening range of the firer. If this is not the case, the 
FIP and FOE attributes are reset to 0, and control is 
returned to the system timer. 

Lines 32-35 calculate the percentage of the target 
fat is visible to the firer. 

Lines 36-37 return control to the system timer if the 
target's percentage visible is less than the user defined 
value. 

Lines 38-39 place BLUE firers in firing defilade. 

Lines 40-41 set the firing in progress attribute to l 
and the range attribute to the current range between firer 
and target. 

Lines 42-43 halt missile firing weapon svstems prior 
Bo tiring. 

Lines 44-47 calculate the muzzle velocity for the type 
of ammunition being fired and schedule an IMPACT event in 
an amount of time equal to the time of flight of the round. 


Control is then returned to the system timer. 
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| Mm. EVENT IMPACT 


| Description 


Event IMPACT is scheduled by event FIRE. Once a round 


| 


| is fired, event IMPACT is always allowed to occur. If the 


i 
| 





| firer scores a catastrophic kill (K-kill), the target's 

Mero tATE attribute is changed to "DEAD", the ALIVE. DEAD 
attribute is set to 1, the target is removed from the firer's 
detected list, and the appropriate hit counters are incre- 
mented for the target. Missile firing weapons are 
Bestarted irom their firing positions and routine WE.HIT 
determines the next action for the firer. 

Anything other than a catastrophic kill causes the MISS 
Section of event IMPACT to be activated. A detection of 
the firer is scheduled in an amount of time dependent on 
eae Lirer's location with respect to the target. Missile 
firing weapons are moved from their firing positions, 
routine WE.MISS determines the next actlon ior Che Sar omeeand 
the appropriate hit counters are incremented for the target. 


Results of the IMPACT event are then printed and control 


is returned to the system timer. 
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Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
cae firer. 

EES -yaneinveger variable containing the poeimber value 
of the target. 

WHOCALLED - pa ge teger variable set equal to 10 in 
event IMPACT which allows a target selection to occur when 
the detected list is updated by the removal of a dead target. 

STOPCOUNT - An integer variable set equal to 2 in event 
IMPACT which restarts missile firing weapon systems when 
Boutine STOP.TO.FIRE is called. 

DT - A real variable used to set the time of detection 
of the firer by the target. DT assumes one of two values 
input by the user. These values are dependent on whether 
or not the firer is in the target's search sector. 

X - A real variable which assumes a random value from 
Peumitorm (0,1) prebability distri biusion, 

DAMAGE.NUM - An integer variable which is assigned the 
malue 5 it “the firer scores a catastroonie Kill and une 


value 6 otherwise. 
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Goding and Brief Explanation 


The coding for event IMPACT is shown below, followed 


by a brief explanation: 


2 


UPON IMPACT(A,ID) 
DEFINE STOPCOUNT AS AN INTEGER VARIABLE 
DEFINE A AND ID AS INTEGER VARIABLES 
DEFINE DAMAGE.NUM AND ANSWER AS INTEGER VARIABLES 
DEFINE WHOCALLED AS AN INTEGER VARIABLE 
DEFINE DT AS A REAL VARIABLE 
DEFINE X AS A REAL VARIABLE 
LET FIP(A)=0 
CALL DECREMENT. AMMO(A,PROJO(A) ) 
LET WHOCALLED=19 
LET STOPCOUNT=2 


ff DEENUM( ID) EQ 1 LET HIT. STATE (ID) —e lee Steers 


MISS ELSE 


13 
14 


CALL LOC(A) CALL LOC(ID) 


. 


IF (WPN.TYPE(A) EQ 6 OR (WPN.TYPE(A) EQ 3 AND PROJO 


OR 


(WPN.TYPE(A) EQ 8 AND PROJO(A) EQ 1) OR WPN. 


TYPE(A) EQ 4) 


7 





ite, AND ALIVE.DEAD(A) EQ 1 GO TO MISS2 ELSE 

17 CALL LOS GIVEN X.CURRENT(A),Y.CURRENT(A),Z.CURRENT 
m), HTO(A)> X.CURRENT(ID), 

#2) Y.CURRENT(ID), Z.CURRENT(ID), HTTGT(ID), P.Vv(*) 

19 LET PCT.VIS=P.V(1) 

a lPerolnS LT RETICAL. VALUE 

PY CO TO MISS ELSE 

22 CALL COMPUTE(A,ID,PCT. VIS) 

ag LET FOE(A)=0 

24 IF COLOR(A) EQ RED AND X GE 1-PH(A)/2 OR COLOR(A) 
EQ BLUE AND X GE 1-PH(A) 

25 | LET FOE(A)=0 

26 LET ALIVE.DEAD(POINTER(ID))=1 

27 LET HIT.STATE(ID)="DEAD" 

28 LET DAMAGE.NUM=5 

29 CALL TALLY.HIT.STATE(ID, DAMAGE. NUM) 

30 CALL LIST.UPDATE(0,A,ID,WHOCALLED) 

31 IF WPN.TYPE(A) EQ 8 OR WPN.TYPE(A) EQ 3 OR WPN. 
PYPE(A) EQ 4 

pe CALI STOP. TO. FIRE A, STOPCOUNT) 

33 ALWAYS 

34 CALL WE.HIT(A) 
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39; GO TO OUT 


36 ELSE 
37 ‘MISS! 
38 ''WE DID NOT KILL THE TANK'' 


39 LET DT=Mv™ 

40 CALL SECTOR.CHECK(ID,A) YIELDING ANSWER 

4] IF ANSWER EQ 1 LET DT=NNN ALWAYS 

42 SCHEDULE A DETECT(ID,A) IN DT? UNITS 

43 IF WPN.TYPE(A) EQ 8 OR WPN.TYPE(A) EQ 3 OR WPN. 
TYPE(A) EQ 4 

44 CALL STOP. TO.FIRE(A,STOPCOUNT) 

45S ALWAYS 

46 CALL WE.MISS(A) 

47 'MISS2' 

48 LET DAMAGE.NUM=6 

49 CALL TALLY.HIT.STATE(ID, DAMAGE. NUM) 

50. «OUT: 

51 CALL DIST(X.CURRENT(A),Y.CURRENT(A),X.CURRENT(ID), 
Y.CURRENT(ID)) YIELDING R 

52 PRINT 1 LINE WITH TTT,NAME(A) ,QQ(WPN.TYPE(A)),PROJO 


(A), NAME(ID) ,QQ(WPN. TYPE(ID)) 
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53. ,TIME.V,HIT.STATE(ID), R,X.CURRENT(A),Y.CURRENT(A), 
| X.CURRENT(ID) ,Y.CURRENT(ID) THUS 


54 


KH KE KH H BH HEH KH HH HEH KKH HHH HHH HHH 


55 LET TPT = TTT = 1 

56 ‘NEXT! 

57 IF HIT.STATE(ID) EQ "DEAD" JUMP AHEAD ELSE 

68 LET HIT.STATE(ID) & ” " 

po HERE 

60 IF N.READ.ALIVE LE INT.F(BC.COUNT*(1-R.PCT. ATT) ) 
61 OR N.BLUE.ALIVE LE INT. F(RC.COUNT*(1-B.PCT.ATT)) 
62 SCHEDULE A STOP.SIMULATION IN 15.0 UNITS 

63. ALWAYS 


64 RETURN END 


Lines 1-7 define the event and local variables. 

Line 8 resets the firing in progress attribute to 0. 

Line 9 reduces the firer's ammunition count by 1 unit 
of the type fired. 

Lines 10-11 assign values to WHOCALLED and STOPCOUNT. 

Line 12 checks the defilade status of the target. If 
Ptne target is in full defilade, control is transferred to 


the MISS section of the event. 





| 


pina 13 updates the X, Y, and Z coordinates of the firer 
and target. 

Lines 14-16 check the ALIVE.DEAD status of missile 
meeers. if the firer is dead prior to the impact of his 
missile, the missile is considered ineffective and control 
Sransters to the MISS2 section of the event. 

fines 17-19 calculate the percentage of the target 
visible to the firer. 

bines 20=21 transfer control to the MISS section of the 
event if the percentage of the target visible to the firer 
is less than the user defined value. 

Line 22 calculates the probability of hit using routine 
BewPUTE. Note that a hit 1S synonomous with 4a kill in the 
Burrent version of STAR. 

Line 23 draws a random number from a Uniform(0,1) 
ieobability distribution. 

Line 24 tests the random number X against the 
Bee bability of hit computed in line 22. If 4 is greater 
than l-probability of hit, the target is considered killed 
and the next block of code is executed; otherwise, control 


fesancrers toe the MISS section of the event. 
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eee 25-28 reset the firer's FOE attribute to 0, change 
the ALIVE.DEAD attribute to "DEAD", and assign the value 5 
(indicating a catastrophic kill) to the variable DAMAGE.NUM. 

Line 29 updates the target's hit counters. 

Line 30 removes the target from the firer's detected 
list. 

Lines 31-32 restart firers who had stopped to fire. 

Gaines 33-35 determine the next action for the firer and 
mransier control to the output section of the event. 

Lines 36-38 define and label the MISS section of the 
event. 

Line 39 sets the detection ae OL the-fireneoye aac 
target to a default value of MMM units (currently 6 seconds). 

Line 40 determines if the firer is in the target's sector. 

Lines 41-42 reset DT to a value of NNN units (currently 
2 seconds) if the firer is in the target's sector. A 
detection of the firer by the target is scheduled to occur 
oo OT units. 

Lines 43-44 restart firers who had stopped to fire. 

Lines 45-49 determine the next action for the firer and 


Meaate the target's hit counters. 
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Lines 50-54 calculate the current range to the target 
and print information pertinent to the engagement. 

Line 55 increments by one the total rounds fired 
counter. 

Lines 56-59 reset the HIT.STATE attribute to four 
blank spaces if previously set to anything other than "DEAD". 

Lines 60-64 stop the simulation if either RED or BLUE 
forces have reached 100 percent attrition. Control is then 


returned to the system timer. 


me EVENT HIDE 
Description 

Event HIDE is used to change the defilade number of a 
weapon system. Although defilade numbers may be changed 
anywhere in the program, the use of an event allows the user 
mo change from one condition to another in a specified or 
random amount of time. Currently, event HIDE is used by 
events FIRE and IMPACT to bring the element to firing 
defilade upon engagement of a target, to allow the element 
to achieve full cover after a firing sequence (dependent on 
weapon type) and to allow the element to return to turret 
defilade after an appropriate passage of time under full 


cover. 





cere only a DEFNUM equal to 1 (fully covered) has 
an effect on the execution of STAR. In event STEP.TIME, a 
DEFNUM of 1 causes a loss of knowledge of previously 
detected targets. In event DETECT two cases exist. If the 
observer is in full defilade, the detection is allowed to 
mecur, OUL no target selection event is scheduled. This 
models the “corporate memory" of the TANK crew when the 
TANK returns to turret defilade. If the target is in full 
defilade, the target is removed from the observer's list 
meeaetected targets. Event TARGET.SELECT is cancelled if 
the selecting TANK is in full defilade. If a potential 
target is in full defilade, that target cannot be selected. 
ment FIRE is cancelled if the firer is in full defilade. if 
the target is in full defilade prior to the impact of the 
round, the round will be assessed as a miss in event IMPACT. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
the TANK for which a change in defilade is required. 

WHOCALLED - An integer variable which assumes values l 


through 5 depending on the type of defilade change required. 
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: 


WHOCALLED keys the computed go to statement to access the 
correct label in the code. 
Coding and Brief Explanation 
The coding for event HIDE is shown below, followed by a 
orief explanation: 
1 UPON HIDE(A,WHOCALLED) 
2 DEFINE A AND WHOCALLED AS INTEGER VARIABLES 
o GO TO FULL, TURRET, FIRING, STOP, OTHER PER WHOCALLED 
4 'FULL' LET DEFNUM(A) = 1 SCHEDULE A HIDE(A,2) IN 


EP. TIME UNITS RETURN 


Pe Cc URGE SE LET DEPNUM(A) = 2 RETURN 


6 '‘FIRING' LET DEFNUM(A) 3 aE TURN 
7 '‘STOP' LET DEFNUM(A) = 4 RETURN 


8 'OTHER' LET DEFNUM(A) = 5 RETURN END 


Lines 1-2 define the event and local variables. 

Line 3 useS a computed go to statement to access the 
correct defilade number change instructions in the code. 

Line 4 places the TANK in full defilade and schedules a 
HIDE with a WHOCALLED value of 2 in 20 seconds. When this 
scheduled HIDE occurs, the WHOCALLED value of 2 will access 
the next line of code and change the defilade number to 2, 


murret defilade. 
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Line 5 changes the defilade number to 2, turret defilade. 

Line 6 changes the defilade number to 3, firing defilade. 

Line 7 changes the defilade number to 4. This type of 
defilade indicates that the TANK is attempting to acquire 
Concealment. 

Line 8 changes the defilade number to 5, a fully exposed 
Meottion. In all cases above, control is returmed to the 


system timer. 


fee EVENT ATTRITION. CHECK 
Description 

Event ATTRITION.CHECK is used to test the number of BLUE 
and RED TANKs remaining at specified times during the 
Simulated battle. If either number of survivors falls 
below the user defined attrition percentage, event STOP. 
SIMULATION is scheduled in 15 seconds following execution 
of event ATTRITION.CHECK. This time delay is intended to 
allow any rounds in the air (especially missiles) to impact 
Mmeror to halting the simulation. 

The user may initially schedule this event in routine 
MAIN at a point in the battle where he feels that casualties 
will begin to approach his input attrition thresholds. 


Alternatively, this event could be scheduled as soon as 


Or 





simulation begins. After the first occurance of the event, 


ATTRITION.CHECK schedules itself every DELTA.T seconds. 


mocal Variables 


There are no local variables in this event. 


Coding and Brief Explanation 


The coding for event ATTRITION.CHECK is shown below, 


followed by a brief explanation: 


1 


Pe Ohn at TRETION. CHECK 

Pte oat vEs Le INT. F(BC.COUNT*(d=k. Pel ecaue 
CoiPenus ALEVE LE INT. F( RC, COUNT<(1-B aren. 
SCRerwir A STOP. SIMULATION IN £5,00UN Ts 

ALWAYS 

SCuEBULE AN ATTRITION.CHECK IN DEETA;Y Uliiis 


RETURN END 


Line 1 defines the event. 


Line 2 compares the number of TANKS remaining in the 


RED.ALIVE set to the integer number of TANKs corresponding 


meine user's RED attrition percentage input. 


Line 3 performs the same test for BLUE TANKs. 


lmie Iesehedules a halt to the simulationvin 15 ceeonds 


fewcitner tine 2 or line 3 is true. 


LUO) 5 





Lines 5-7 reschedule this event in DELTA.T seconds and 


Feturn control to the system timer. 


oe 2VENT FINAL. DEATH 
Description 

Event FINAL.DEATH changes the ALIVE.DEAD attribute of a 
TANK to 1 sixty seconds after the TANK sustains a mobility 
and firepower kill. This event is scheduled by routine 
COMPUTE. 
Local Variable 

iie trollowing 1S a local variable of this routine: 


_A - An integer variable containing the pointer value of 


the TANK for which an ALIVE.DEAD attribute change is required. 


Coding and Brief Explanation 


The coding for event FINAL.DEATH is shown below. This 
event is self explanatory. 
1 UPON FINAL.DEATH(A) DEFINE A AS AN INTEGER VARIABLE 


LET ALIVE.DEAD(A)=1 RETURN END 


i EVENT STOP.SIMULATION 


Bescription 


Evemums Lor, LMULATION is used Co regurnm Control, of sine 


program to routine MAIN and bring execution of the program 
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to a halt. This event is scheduled by either event STEP.TIVE 
Mmemevent LMPACT. If event STEP.TIME causes execution of 

this event, then a RED TANK has crossed an X and Y coordinate 
threshold defined in the event STEP.TIME. If event IMPACT 
causes execution of this event, then either the BLUE or RED 
forces have reached an attrition point threshold defined in 
routine MAIN. In addition to printing the elapsed simulated 
time in seconds, the number of line of sight calls are 
Brinted and the current attrition values of each weapon 
system are printed. 

The coding for event STOP.SIMULATION is shown below. There 
mee no local variables in this event and the cede is self 
explanatory. 

1 UPON STOP.SIMULATION 

2 PRINT 1 LINE WITH TIME.V AND LIN THUS 
SIMULATION STOPPED eo HHKEEK KHHHE Ges CAnis = KEKE HHHEAKARHHHEESE 

oe oktP 3 CWLEUT LINES 

4 FOR EACH TANK IN TANKS CALL LOC(TANK) 

5 LIST ATTRIBUTES OF EACH TANK IN TANKS 

6 STOP 


FE sae 
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| me ROUTING SET.SECTOR 
Description 


Routine SET.SECTOR is used to provide unit vector 
endpoints in the direction of the left and right search 
sector limits of a particular weapon system. A simple 
rotation matrix is applied to the primary direction of 
search. This matrix multiplication produces the required 
endpoints. Routine SET.SECTOR is used when weapons systems 
are Created and any time that the primary direction of 
search changes. Currently, the MAIN routine and routine 
CHG.SEC.SEARCH use routine SET.SECTOR for these purposes. 
Bee event STEP.TIME for conditions that activate routine 
CHG.SEC.SEARCH. 

Local Variables 

The following are local variables of this routine: 

TANK - An integer variable containing the pointer 
value of the weapon system for which the left and right 
sector limits are being developed. 

i - tne ss coordinate of 4 Unit Vector In therdirecvien 
e1 the current primary direction of search. 

ia -eiaewercoordinate of a Unit Veetor in the direction 
of the current primary direction of search. 
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A - A real variable which has the value of the cosine of 
gie=-half the current search sector angle. 
B =- A real variable which has the value of the sine of 
one-half the current search sector angle. 
mei = Cne-half the current search sector angle in 
radians. 
Coding and Brief Explanation 
lime coding for routine SET.SECTOR is shown below, 
followed by a brief explanation. 
1 ROUTINE SET.SECTOR( TANK) 
2 DEFINE TANK AS AN INTEGER VARIABLE 
Peeve A, ., WIDTH, A,B Ao REAL VARTAGUES 


ie X = COS.F(PRi.DIR(TANK)) EET Y aie eee, 


E LET WIDTH =(ARBEA/2.0) * PlgC *=270)7 36070 
Sener A = €OS-F (WIDTH) LET B= Seyi) 


7 LET X.R( TANK) Bet ae 


8 LET Y.R( TANK) -B * X + A*Y 


eee ae TANK } A*X + (-B) * Y¥ 


Oy ee gk, WANK ) Bee “fen oe 


iS RETURN END 
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Lines 1-3 define the routine and local variables. 

Line 4 calculates the endpoints of a unit vector in the 
direction of the primary direction of search. 

Line 5 calculates the value of one-half the current 
search sector angle. 

Line 6 calculates the sine and cosine required for the 
rotation matrix. 

Lines 7-ll calculates the X and Y endpoints of unit 
vectors in the direction of the left and right search 
meecor limits, respectively. Control is then returned to 
the routine MAIN or routine CHG.SEC.SEARCH. The rotation 
Mecrix, R, peeeented by these lines of code is shown 
below. Note that any positive or negative angle may be 


Babstituted for WIDTH. 


COS (WIDTH ) SIN (WIDTH) 


-SIN(WIDTH) COS (WIDTH) 


we ROUTINE LOC 


Description 
Routine LOC is a simplified movement routine used in 
fee baSic version of STAR. It is called by numerous 


routines and events throughout STAR, and is used to update 
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the X, Y, and Z coordinates of a particular TANK. In the 
current version of STAR, BLUE TANKs do not move. An 
assumption of instantaneous acceleration to constant Speed 
is made, as is the assumption of instantaneous deceleration to 
Eeopeed of zero. the Z coordinate, elevation, is obtained 
from FORTRAN routine ELEV which resides on disk. An 
elevation floor of 250 meters is used to save line of sight 
computation time in FORTRAN routine LOS. The movement 
meicine for production versions of STAR will be a FORTRAN 
routine. 
Local Variables 
ie icieowing is a local variable of this routine: 
TANK - An integer variable containing the pointer value 
of the element for which a location update is required. 
Coding and Brief Explanation 
The coding for routine LOC is shown below, followed by a 
brief explanation: 
1 ROUTINE LOC (TANK) 
2 DEFINE TANK AS AN INTEGER VARIABLE 
3 IF ALIVE.DEAD(TANK) EQ 1 OR COLOR(TANK) EQ BLUE RETURN 


BoE 
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4 LET X.CURRENT( TANK) =X.CURRENT(TANK)+(TIME.V-T.SPD 
(TANK) )* (SPD (TANK) 

cE *COS.F (DIR. OF.MVMT( TANK) ) ) 

6 LET Y.CURRENT(TANK)=Y.CURRENT(TANK)+( TIME. V-T.SPD 
(TANK) )*(SPD( TANK) 

7 *SIN.F(DIR. OF. MVMT( TANK) ) ) 

8 LET T.SPD(TANK)=TIME.V 

9 CALL ELEV GIVEN X.CURRENT(TANK) ,Y.CURRENT( TANK) , 
ZH ( * ) 

10 IF ZH(1) LE 250.0 LET ZH(1) = 250.0 ALWAYS LET 

Z.CURRENT(TANK) = ZH(1) 


me RETURN 


Lines 1-2 define the routine and local variable. 

Line 3 insures that the tank is alive and is not BLUE 
before proceeding. 

Lines 4-5 calculate the new X coordinate by adding to 
the current X coordinate the total distance traveled since 
the speed was last set. 

Lines 6-7 calculate the current Y coordinate in a similar 


Manner . 
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Lines 10-11 calculate the current elevation using 
FORTRAN routine ELEV. A minimum elevation of 250 meters is 


set and control is returned to the calling routireor event. 


oe ROUTINE DIST 
Description 
Routine DIST is used by many events and routines in 
STAR when the range in meters between two selected TANKs 
is required. 
Local Variables 
The following are local variables of this routine: 
mee— Ttee current X% coordinate of the first TANK 
ioe ies curren, Y coordinate of the rirsperae 
ie = (he “eumrent 4 coordinate or the secondy isk, 
i2e- Pye current Y coordinate of the seconde 
DISTANCE - The return argument of routine DIST which 
represents the range in meters between the two selected 
TANKs. 
Coding and Brief Explanation 
The coding for routine DIST is shown below. This 


routine is self explanatory. 
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1 ROUTINE FOR DIST GIVEN X1,Y1,X2,Y2 YIELDING DISTANCE 


2 LET DISTANCE=SQRT.F((X1-X2)**2 + (Y1-Y2)#*2) 
3 RETURN 
4 END 


fee ROUTINE SECTOR. CHECK 
Description 

Routine SECTOR.CHECK uses the definition of the dot 
product of two vectors to determine if a target is within 
em observer's search sector. In the current version of 
STAR, a search sector is defined in routing MAIN to be 90 
Me2rees, the cosine of which is 0. Recall that the cosine of 
an angle can be defined as: 

60] Memo = VAyB), (ABI 

where 6 is the angle between two vectors, A and B, A:B is 
the dot product of the two vectors, and IABl is the magnitude 
of a vector constructed between the end points of the given 
vectors. If the angle between the observer's left sector 
ifmic and the target has a cosine of less than 0, or if the 
angle between the observer's right sector limit and target 
has a cosine of less than 0, then the target 1s not within 
the observer's sector. Since routine CARDIO considers only 


those targets within sector, routine SECTOR.CHECK is used as 
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a filter prior to calling routine CARDIO in event STEP. TIME. 
Routine SECTOR.CHECK is currently used by events STEP. TIME 
ead IMPACT. 
Local Variables 

The following are local variables of this routine: 

a -eeaeiinteger variable containing the pointer value or 
the observer TANK. 

B - an integer variable containing the pointer value 
of the target TANK. 

ANSWER - An integer variable which assumes the value 1 if 
the target is within the observer's sector, and the value 0 
mune target is not in sector. 

X.T - The X coordinate of the endpoint of the vector 
from the observer to the target. 

Met = Ine Y coordimate of the endpo int  oveaevecuers com 
the observer to the target. 

C.LEFT - The cosine of the angle between the target and 
the observer's left sector limit. 

C.RIGHT - The cosine of the angle between the target 
and the observer's right sector limit. 


R - The magnitude, IABI, described above. 
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Sine and Ban wep banat ion 

The coding for routine SECTOR.CHECK is shown below, 
followed by a brief explanation: 

q ROUTINE SECTOR.CHECK(A,B) YIELDING ANSWER 

2 DEFINE A,B, AND ANSWER AS INTEGER VARIABLES 

eee Oe Awa Y.T, C.LEFT, C.RIGHT, AND R AS READ 
VARIABLES 

4 LET ANSWER = 1 

peer X.T = X.CURRENT(B) - X.CURRENT(A) oy ee 
PeCURRENT(B) - Y.CURRENT(A) 

pee Rr sORT.F(((ABS.F(X.L(A)+x,2)) ** 2.0) ee ee 
meen A)}+Y.T))**2.0)) 

eee eC BRE T= (X.U(A)eX. TY. LA A)*Y Ty 

See te CoRiGHi= (X.R(A)*X. TY RUA) sean 

Se eee. tee tT LT CONSTANT OR C.RIGHT Ll CONS tates 


ANSWER=0 ALWAYS RETURN END 


Lines 1-3 define the routine and local variables. 

Line 4 sets the default value of ANSWER to l. 

Line 5 calculates the endpoints of a vector to the target 
with respect to the observer. 


Line 6 calculates the magnitude, JAB], described above. 
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Lines 7-8 calculate C.LEFT and C.RIGHT respectively. 

Line 9 tests C.LEFT and C.RIGHT against CONSTANT. the 
cosine of 90 degrees in the current version. If either 
cosine is less than zero, the target is considered to be 
out of sector, ANSWER is set to 0, and control is returned 


mo une calling event. 


See ROUTINE CHG.SEC.SEARCH 
Description 

Routine CHG.SEC.SEARCH is called by event STEP. TIME 
whenever a particular vehicle has no currently detected 
targets in its target list. CHG.SEC.SEARCH changes a 
vehicle's primary direction of search to allow a vehicle to 
Search areas other than the original area assigmed to the 
vehicle. 

The primary direction of search is in relation to the 
Menicle's direction of movement. The attribute PRI.DIR is 
the vehicle's primary direction of search. The attribute 
DIR.OR.MVMT is the vehicle's direction of movement. The 
routine CHG.SEC.SEARCH changes the PRI.DIR attribute of a 


specified vehicle from zero to 7/4, ™/4 to - W/k, or - W/4 
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to zero depending on the current PRI.DIR attribute of the 
vehicle when the routine is called. 
Local Variables 

The following are local variables of this routine: 

Pe einteger variable containing the pointer value lot 
mnie vehicle for which a change of sector is to be 
accomplished. 

XYZ - An integer variable used to direct a computed go 
to statement to the proper label. 

iite coding for CHG.SEC.SEARCH is shown below, foldowead 
By a Drier explanation: 

I ROUTINE CHG.SEC.SEARCH(A) 

2 DEFINE A AND XYZ AS INTEGER VARIABLES 

3 LET XYZ = SIGN.F(PRI.DIR(A)-DIR.OF.MVMT(A) ) 
4% LEP XYZ=XYZ+2 

pace eset, C2,C 3 6 PER AY 


oe Cie EE PePRI.DIR(A) 


O. + DIRVOF Vil A) GCG Or erir 


Jae? GET PRI.DIR(A) PI.C/4 + DIR.OF.MVMT(A) GO 


Se ep coer. DIR(A) -PI.C/4, + DIR.OF.MVMT(A) GO 
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9° ‘SET CALL SET.SECTOR(A) 


Oy RETURN END 


Hines 1-2 define the routine and local variables. 

Line 3 uses the SIGN.F system function to set the initial 
value of AYZ. If the argument is zero XYZ=0, if the argument 
is positive XY¥Z=1, if the argument is negative XYZ=-l. 

Line 4 adds 2 to XYZ for use in the computed go to 
statement 

Meee 5 airecscs the routine to label 'Cl' af XY¥Z=ieeere 
Mees Ce’ if AYZ=2, and to label ‘'C3' if XY¥Z=3. 

Lines 6-8 set the new primary direction of search on the 
appropriate vehicle. 

mene 9 calls routine SET.SECTOR which resecs uhe cee ten 
limits of the appropriate vehicle based mthe new primary 
direction of search. 


tame LO= returns control to the calling routine werewevem., 


mR. ROUTINE CARDIO 


Wescription 
Routine CARDIO is called by event STEP.TIME whenever it 
is necessary to determine how long it will take (in seconds) 


for an observer to detect a given target. This routine uses 
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the assumption that detection is a random phenomenom. The 
basic detection equation used in the routine is: 
P(d)=1-exp(-LAMBDA ae 

where: P(d) is the probability of detection 

LAMBDA is the detection rate 

t is the time to detect 
The routine draws a random number from a unit OrmGowe) 
distribution as the value of P(d), then solves for +t and 
mecwurns the value of t to STEP.TIME, 

Routine CARDIO assigns a uniform probability of an 
observer looking in each 30 degree portion of his search 
area. (Area size in degrees is user specified.) Thus, 
if the observer's search area is 90 degrees he has a one- 
third probability of looking in each 30 degree portion of 
his search area at a specified time. If the user specifies 
360 degrees as the search area, routine CARDIO utilizes a 
Saraioid distribution to determine probability of looking in 
any particular 30 degree portion of the search area. 

The value of LAMBDA used in the detection equation is 


calculated using the following formula | Ref. Lo] : 


LAMBDA = .003 + 
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ese: T.C.FACTOR is the complexity of the terrain between 
Seiseever and target 
RR as the apparent range to the target in kilometers 
X.VELOCITY is the crossing velocity of the target 

if the target is within 300 meters of the observer, 
detection is assumed to be essentially immediate and a time 
of one second is returned to event STEP.TIME. If the target 
is beyond 4000 meters of the observer, detection is assumed 
mo, be essentially infinite and a time of 99 1s retuened =n. 
event STEP.TIME. 

Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value 
of the observer. 

ANGLE - A real variable containing the angle in radians 
between the observer's primary direction of search and the 
target. 

ie Asse variable equivalent to 1/277. 

DD - A real variable used as a correction factor to 
Calculate the apparent range to the target. 

DET.TIME - A real variable containing the time to 


detect a given target. 
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LAMBDA - A real variable containing the value of the 
detection rate. 

AREA - A real variable containing the observer's search 
area in degrees. 

B - An integer variable containing the pointer value 
of the target vehicle. 

BT - A real variable containing the value 3/877. 

DENOM - A real variable containing the denominator of the 
detection rate equation. 
P.SUB.X—A real variable containing a value representing 
the probability an observer is looking in a 30 degree portion 
of his search sector. 

FeR.PULL. EXPO = Percent of the target that 1S exposed 
(value returned from routine PERCENT). 

RR - A real variable representing the angle from the 
observer to the target. 

TGT.ELEMENT - A real variable representing the angle 
from the observer to the target. 

Mo VEEOCGrt,Y - A real variable containing the crossings 


velocity of the target vehicle. 


MT - A real variable containing the value 6/7. 
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CT. VIS - A real variable valued between O and 1 which 
represents the percentage of the target which is visible 
mo the observer. 
R - A real variable containing the range to the target 
in meters passed into routine CARDIO from event STEP. TIME. 
moc. FACTOR - A real variable representing the complexity 
of the terrain between the observer and target. Value is 
Betained by routine CARDIO by calling routine TER.COMPLEXITY. 
X - A real variable containing the value of a uniform 
random variable between O and 1 passed into routine CARDIO 
meom event STEP.TINME. 
ZL - A real variable containing the constant .000Q001 
used to prevent division by zero in the routine. 
The coding for CARDIO is show below, foliowed by a 
brief explanation: 
7 ROUTINE CARDIO(A,B,R,PCT.VIS,;X) YISDDING BET Ts 
2 DEFINE R.PCT.VIS,AND X AS REAL VARIABLES 
3. DEFINE AREA AS A REAL VARIABLE 
4 DEFINE A AND B AS INTEGER VARIABLES 
5 Ee COLOR(A) HQ RED 
6 LET AREA=R.AREA 
7 ALWAYS 
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(A)), (X. 


IF COLOR(A) EQ BLUE 

LET AREA=B. AREA 
ALWAYS 
IF R LE 300.0. LET DET. TIME=1.0 
RETURN 
ELSE 
IF R GT 4000.0 LET DET. TIME=99.0 
RETURN 
ELSE 
LET ZL=.000001 
LET DD = PCT.VIS 
IF DD LE 0. LET DD=ZL ALWAYS LET RR=(R/DD)/1000. 
LET TGT.ELEMENT=ARCTAN.F ((Y.CURRENT(B)-Y.CURRENT 
CURRENT(B) - 

X CURRENIUGs)) 

IF AREA EQ 360. 


GO TO FULL.CARDIOID 


LET P.SUB.K = 30./AREA 
GO TO CONTINUE 
'FULL.CARDIOID' 


LET ANGLE=ABS.F(TGT.ELEMENT-PRI.DIR(A)) 
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Bor LET MT=6./PL.C 
pe LET BT=3./(8.*P1.C) 
pee) AT=1,/ (207i .c ) 


32 LET P.SUB.K=(BT/MT)+AT*(SIN.F(ANGLE+(1/MT) )-SIN.F 


(ANGLE) ) 
33 ay 2 See, fe nue 
34 LET P.SUB.K=0 
35 ALWAYS 


36 'CONTINUE' 

o7 LET X. VELOCITY=ABS.F(SPD(B)*SIN. F(TGT. ELEMENT-DIR. 
OF. MVMT(B)) ) 

38 CALL TER.COMPLEXITY(X.CURRENT(A),Y.CURRENT(A), 
X.CURRENT(B),Y.CURRENT(B) ) 

39 SADIE NE, Ce NONE: 

4QO LET DENOM=1.453+T.C.FACTOR*(.5978+2.188*(RR*¥*2) - 
. 5038*X. VELOCITY) 

4] IF DENOM LE ZL 

42 LET DENOM=Z2L 

43 ALWAYS 

44 LET LAMBDA= .003+1.088/DENOM 

45 IF LAMBDA LE 0.0 LET DET.TIME=0.0 RETURN ELSE 


46 IF SPD(A) GT O. 
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49 LET LAMBDA=LAMBDA/2 

48 ALWAYS 

4g CALL PERCENT(A,B) YIELDING PER.FULL.EXPO 
50 LET LAMBDA=LAMBDA*PER. FULL.EXPO*P.SUB.K 
51 IF LAMBDA LE 0. 

52 LET LAMBDA=ZL 

53 ALWAYS 

54 LET DET. TIME=LOG.E.F(1.-X)/(-LAMBDA) 

55 RETURN 


56 END 


Lines 1-4 define the routine and local variables. 

Lines 5-10 assign appropriate search area to the 
observer based on user input from the MAIN program. 

Lines 11-16 check range to the target versus upper and 
lower threshold values, and returns appropriate DET.TIME 
if threshold values are exceeded. 

ihame 17 sets svaiiweset Zihwto peegent disgicaon by zero. 

Line 18-19 calculate apparent range to the target. 

Line 20 calculates angle between observer and target. 

Lines 21-23 check to see if user has specified use of 
eerdiod distribution and if so transfer to 'FULL.CARDIOD' 


label. 
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Lines 24-25 set value of P.SUB.K. 

ines 27-35 calculate value cf P.SUB.K using the 
Serdiod distribution. 

Line 37 calculates crossing velocity of the target. 

Lines 38-39 call routine TER.COMPLEXITY which returns 
with the value of T.C.FACTOR. 

Lines 40-43 calculates the value of the denominator 
of the detection rate equation. 

Lines 44-45 calculate the initial value of the detection 
rate. If the detection rate is less than or equal to 0, 
Meecime of 0.0 is returned, indicating immediate detection, 
mo event STEP.TIME. 

Lines 46-48 check to see if the observer is moving; if so, 
the detection rate is halved. 

Line 49 calls routine PERCENT which returns with the 
merge of PER. FULL.EXFO. 

Lines 50-53 calculate final value of detection rate 
mens P,.sUB.K,PER.FULL.EXPO, and initial LAMBDA. 

ane St ecaleulates eceoulonmulne: 


bine S55 Geturno cOncrOlL to. the calising “event. 
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om ROUTINE PERCENT 

Routine PERCENT is a dummy routine called by routine 
CARDIO yielding the real variable PER.FULL.EXPO. 

PER.FULL.EXPO is a real variable which indicates the 
percentage of the movement trace of the target where the 
target is fully exposed (not concealed or covered), and 
is an integral part of the detection rate calculation in 
routine CARDIO. 

moutcine PERCENT in its present form always returns a 
mame Of 1.0 for PER.FULL.EXPO. Upon availability of 
Micro-terrain data, this routine will return a real value 
between 0.0 and 1.@eto rouse CARDIOU Dy aceesscine une 
Micro-terrain data. 
Local Variables 

The following are local variables of this routine: 

PER.FULL.EXPO - A real variable indicating the percentage 
of the target's movement trace that the target is fully 
exposed. 

X - An integer variable containing the pointer value of 
the observer. 

Y - An integer variable containing the pointer value of 


the target. 
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The coding for PERCENT is shown below, followed by a 
brief explanation: 
1 ROUTINE FOR PERCENT GIVEN X AND Y YIELDING PER.FULL.EXPO 
pee oe Pan. FULL. EXPO=1 
3 RETURN 


4 END 


Line 1 defines the routine and variables passed from 
Moutine CARDIO. 

imme 2 detines the value of PER.PULL.EXPO to be 1.0. 

immaes 3J—-+ return Conteol tovtme calling roucine or 


event. 


mee ROUTINE TER.COMPLEXITY 
Pescription 

moutine TER.COMPLEXGTY 1s a dummy routine calited by 
Boucine CARDIO yielding the real variable T.C.FACTOR. 

T.C.FACTOR is a real variable which indicates the 
complexity of the terrain between the observer and the 
target, and is an integral part of the detection rate 
Calculations in routine CARDIO. 

Routine TER.COMPLEXTTY in its present form always 


Becurnis 42 valuewor 1.0 for TC cPACTOR. Upon availability 
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mM micro-terrain data this routine will return a value 


between 1.0 and 7.0 to routine CARDIO by accessing the 


micro-terrain data. 


Local Variables 


mnie following are local variables of this routine: 


T.C.FACTOR - A real variable indicating the complexity 


of terrain between observer and target. 


X - A real 


moutine CARDIO 


observer. 


Y - A real 


foutine CARDIO 


observer. 


moutine 


target. 


W - 


moutine 


target. 


The 


Ze cea 


CARDIO 


A real 


CARDIO 


Variables passedsiacos lik. 


CONnvalNInemene Current x 


variable passed into TER. 


CoOnvaimine the vcurcens y 


Variable passed into TER: 


CONnGaINIng “Giecurteman X% 


variable passed into TER. 


Contalning she curren: © 


COMPLEX TTY 


coordinate 


CCOvMPRrExiiy 


COecraina ce 


COMPLEX TITY 


coordinate 


COMPREX TITY 


coordinate 


from 


of the 


from 


of the 


Prom 


of the 


i rom 


Of = tne 


Coding 10% T2k.COMPEEXTiY temsnownm below, followed 


by a brief explanation: 
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ijn ROUTINE FOR TERMCOMPLEATTY GIVEN X,Y,Z,W YIELDING 
mo. FACTOR 

oe Let T.c..FACTOR=1. 

pees. TURN 


4 END 


Line 1 defines the routine and variables passed into it 
from routine CARDIO. 
imerne 2 defines “the value or TC. FACTOR to be 1.0. 


Lines 3-4 return control to the calling routine. 


meee ROUTINE LIST.UPDATE 
Description 

moutane List. UPDATE teeGhe means oy which the Liss of 
detected targets for each weapon system in the simulation 
is kept current. The calling arguments are used to control 
mae actions within the routine. 

Routine LIST.UPDATE serves three distinct functions: 
addition of a target to a specified weapon system's target 
list, removal of a eee from a specified weapon system's 
mist and scheduling of event TARCET.SELECT,. 

Removal of a target from a list occurs when one of two 


Bondi tions @X1Sst: either line of sight to the target no 


eS, 





longer exists or the target is considered "dead". If the 
target in question was not previously placed in the weapon 
System's target list, no action is taken in regard to 
updating the weapon system target list. 

Addition of a target to a list occurs when the target 
is detected and line of sight exists to the target. 

Either removal or addition of a target to a list may 
result in the scheduling of event TARGET.SELECT based on 
the value of the argument WHOCALLED passed into routine 
iioT.UPDATE by the calling event or routine a WHOCALLED 
value less than or equal to 1 will cause the routine to 
perform its function without event TARGET.SELECT being 
scheduled. A WHOCALLED argument of 2 or greater will cause 
Bent PARC iotitC robes cheduled pricrs CO Gemumeam co tile 
Palling event or routine. 

Local Variables 

ine following are locale variableemor his routine: 

A - An integer variable containing the pointer value 
of the weapon system whose list is to de updated. 

By — An eae ser Variable Containing the pointer value of 
the target weapon system to be added or removed from the 


list. 
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COUNT - An integer variable set to equal the Location 
of a particular target ina target list. 

I ~ An integer variable used as a DO LOOP counter. 

SIZE - An integer variable which indicates the 
dimension of a target list. 

FLAG - An integer variable set to 1 if line of sight 
does not exist to a particular target or if the target in 
question is "dead", O otherwise. 

LOSE - An integer variable set to 1 if line of sight 
Mearsts to a target and to.0 if line of sight does not exist. 
The value of LOSE is passed to routine LIST.UPDATE by 
the calling event or routine. 

WHOCALLED - An integer variable indicating the require- 
Bemc for routine LIST.UPDATE to schedule event TARGET.SELECT. 

The coding for LIST.UPDATE is shown below, followed by 
e Drief explanation: 

1 ROUTINE LIST. UPDATE(LOSE,A,B,WHOCALLED) 

2 DEFINE I AS AN INTEGER VARIABLE 

3 DEFINE A,B,LOSE,SIZE,COUNT,FLAG,AND WHOCALLED AS 
INTEGER VARIABLES 

Pte Pist() = TARGET (NAVE *’ * ACCESS 


weeRECT LIsT * ' 


we BE 





5 @ePerOst ESR OR ALIVE. DEAD(B) EQ 1 
6 LET FLAG=1 

7 REGARDLESS 

8 Leal Si Ze eer Ts Tee) 


oo POnheie= 1 TO-SizZeE, 20 


iO PPE eO se rewien 

aa LET COUNT = I 

eZ Cone 2OUt Or eer 
ILS: ply Sy 

14 LOOP 


if (ker haG Ber 


io LET Liste = 0 


ay RETURN 

mo ELSE 

19 ir eee 1) ee oO 

20 LET tot (ie 
aah feo Ze 1 


22 GO TO ALWAYS 


Zo ELSE 

24 Oke! = 1 TC size LET TEMP.TGT(*) = 
mioT(T) 

25 LED STEME PCr Coke = Bb 
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26 RELEASE LIST(*) 


27 RESERVE LIST(*) AS SIZE + 1 

28 LET TARGET(NAME(A),1) = LIST(*) 

29 FOR I = 1 TQ SIZE +1 LET LIST(I) = TEMP.76T(1) 
30 ‘ALWAYS’ 

31 LET LIST(*) = 0 


32 IF WHOCALLED LE 1 RETURN 

Bo ELSE 

34 SCHEDULE A TARGET.SELECT(A) IN MIN.F(UNIFORM.F 
me, SQRT.F(STZE),2), 

BS SGRT Fr G@S.e UNEES 

36 RETURN 

(7) OUL- OF, LOOr: 


per ire FLAG na 1 


39 Leonean ee eee on (i) eo 

LO LED eS: een 

4 RETURN 

42 ELSE 

4,3 FOR £ = 1 TC SiZeuweD TEMP] TCT(1) = LIST(T) 


44 RELEASE LIST(*) 
45 RESERVE DisT@™)) As siZE 29) 


46 PACE (NAM bier (=) 


Eee 





a FOR I = 1 TO SIZE = 1, nO 


48 IF I LT COUNT 


bo LET LIST(I) = TEMP. TGT(T) 


bo) GO TOONEAT 


51 ELSE 

a2 LET LIST(I) = TEMP. TGT(I+1) 
le NEXT’ 

Su LOOP 


55 REGARDLESS 

56 HE ESI Se 

57 IF WHOCALLED LE 1 OR FLAG EQ 1 RETURN ELSE 

58 SCHEDULE A TARGET.SELECT(A) IN MIN.F(UNIFORM.F 
me, SORT. F(SIZE) ,2), 

59 SQRT.F(5.0)) UNITS 

60 RETURN 


61 END 


Lines 1-3 define the routine and local variables. 
Lines 4 accesses the appropriate target list. 
tines +7 eseo 2heGeto Tie Vine ot signt does not exist 


me if the target inp question 2s dead’. 
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ities 8-18 search the accessed target list. If the 
target in question is in the list, COUNT is set equal to the 
Barget's location in the list and control is transferred to 
mae 'OUT.OF.LOOP' label. If the target is not in the list, 
and FLAG=1, the list is released and control returned to the 
Salling routine or event. 

Lines 19-22 check to see whether the accessed list has 
any elements in it. If not, and all previous checks have 
been passed, the target in question is placed in the list 
mid control transfers to the 'ALWAYS' label. 

Lines 23-29 replace the accessed list with a new list 
which contains the target in question, and releases the 
core storage used by the old list for further use in the 
program. 

Lines 30-36 check the WHOCALLED argument and schedule 
meeec (ARGET. SELECT 12 appropriate, control is returned to 
Bye calling event or routine. 

Lines 37-56 remove the appropriate target from the accessed 
target list and release the list. 

Lines 57-59 check the WHOCALLED argument and schedule 
event TARGET.SELECT if appropriate. 

Lines 60-61 return control tomune calling event or 


Poutine. 
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V. ROUTINE PROXIMITY. DETECT 
Mescription 

Routine PROXIMITY.DETECT is called by event DETECT 
whenever a normal detection of a TANK occurs. This routine 
Simulates the phenomenon of close vicinity detection. The 
rationale behind this routine is the fact that detection 
mean element on the battlefield causes detection of other 
elements within some relatively close, specified range. A 
Single target selection is scheduled as a result of detect- 
mie a cluster of targets. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value 
of the TANK effecting a near vicinity detection. 

B - An integer variable containing the pointer value 
mee the detected threat. Other elements close to this 
threat may be detected, if they meet certain close vicinity 
merceria (currently a square 150 meters on a side centered 
Bt the detected target). 

WHOCALLED - An integer variable used to contrel the 


meccuGion or a target selection in ,outmme Diol roi, 
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A value of O prevents a target selection, while a value of 
10 allows a target selection. 
X.SAMPLE - A real variable containing the-eurreng. .« 
coordinate of the detected threat, B. 
Y. SAMPLE ~ A real variable containing the current Y 
coordinate of the detected threat, B. 
Coding and Brief Explanation 
iiiencoOdimeastor rougine PROXIMITY .DETECT is shown below, 
followed by a brief explanation. 
i ROUTINE CR Ox IME. WEEE Ge TOA... ) 
2 DEFINE A AND B AS INTEGER VARIABLES 
3 DEFINE <, SAMPLE AND Y.SAMPLE AS REAL VARIABLES 
4 DEFINE WHOCALLED AS AN INTEGER VARIABLE 
5 ee Abi VE. DEAD( 2) BG 1 RETURN ELSE 
6 LET X.SAMPLE=X.CURRENT(B) 
(eee Y SANPLE=y CURRENT (B) 
8 IF COLOR(A) EQ BLUE 
> FOR EAGH TANK IN PLT. UNIT( PLE. BR) 
LO WITH ABS.F(X.CURRENT 
TANK)-X.SAMPLE) LE 75.0 


de AND ABS. F(Y.CURRENT( TANK =Y (SAMPLE) LE 75.0, DO 


137 





2 


13 
14 
15 
16 
ag 


18 


IF TANK EQ B LET WHOCALLED = 10 ALWAYS 
CALL LIST. UPDATE(1,A,TANK,WHOCALLED) 
LET WHOCALLED = 0 

LOOP JUMP AHEAD 
ELSE 
FOR BACH TANK IN FLT-UNITCPLT(S ia) 


WITH ABS.F(X.CURRENT 


(TANK) -X.SAMPLE) LE 75.0 


Wy 


20 


aa 


es 


23 


24 


25 
26 


AND ABS.F(Y.CURRENT(TANK)-Y.SAMPLE) LE 75.0, DO 
IF TANK EQ B LET WHOCALLED = 10 ALWAYS 
CALL LIST.UFDATE(1,A, TANK ,WHOCALLED) 
foie Gromae: = © 
LOOP 


HERE 


imines 1-4 define the routine and local variables. 


mane 5 masures that the currently detected threat, 


i I's Still alive prior to proceeding. 


Lines 6-7 place the X and Y coordinates of the currently 


detected threat in holding variables. 
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Line 8 accesses the BLUE section of this routine. 

Lines 9-ll search B's platoon for TANKs within a i550 
meter square centered on B. 

Lines 12-14 test if the TANK meeting the distance 
Merreria iS in fact B. If so, routine LIST.UPDATE is 
accessed with a WHOCALLED value of 10. This insures a 
BOovential target selection based on the detection of B. 

If the TANK meeting the distance criteria is merely a 

member of B's platoon, routine LIST.UPDATE is accessed 

with a WHOCALLED value of O and no target selection is 

scheduled as a result of close vicinity detections. After 

searching the platoon, control is returned to event DETECT. 
line 16 accesses the RED portion of the routine. 

Lines 17-25 are virtually identical to lines 9-15, but 


apply to RED weapon systems. 


eee ROUTINE 172. TACTICS 
Description 

Routine T72.TACTICS is the tactical routine used to 
Simulate platoon level fire control within the RED tank 
maorce, Routine T72.TACTICS is called by event TARGET. SELECT 
and returns to event TARGET.SELECT the integer variable 


ANSWER. If the value of ANSWER=1, the RED tank in question 
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will go thru the normal target selection process. An 
ANSWER of O indicates to event TARGET.SELECT that the 
tank in question has acquired a target designated by his 
platoon leader. 

Routine 1T72.TACTICS sequences through several checks 
iLO Pere rnine if it is appropriate for the RED tank in 
question to have designated as his highest priority target 
Has platoon leader's currently selected target. All four 
of the following conditions must be met for a platoon 
member to have his platoon leader's target designated as 
his own. : 

if The platoon leader must be "alive". 

2. Line of sight must exist between platoon leader and 
member. 

3. The platoon leader must have a target selected. 

4, The platoon member must have the proper ammunition 
type available. 

If any of these four conditions are not met, ANSWER is set 
wo Ll, and control returned to the calling event. 
Local Variables 


The following are local variables of this routine: 
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A 1 An integer variable containing the pointer value of 
the platoon member. 
ANSWER ~ An integer variable assigned a value of 1 if 
the vehicle is to go through a normal target select, and 
0 if the tank has acquired his platoon leader's target. 
LOSE - An integer variable indicating the existence of 
tine of sight; 1 indicates line of sight exists, 0 indicates 
mine of sight does not exist. 
AIM - An integer variable returned to T72.TACTICS 
from routine COMMO.PASS.TARGET containing the pointer value 
or the platoon leader's currently selected target. 
PeoULT - An integer variable returned to 172. TACTICS 
my routine AMMO.CHECK indicating the availability of 
Bopropriate ammunition. If RESULT equals 0, the proper 
ammunition is not available; RESULT equals 1 otherwise. 
The coding for T72.TACTICS is shown below, followed by 
a brief explanation: 
1 ROUTINE 172.TACTICS(A) YIELDING ANSWER 
2 DEFINE A, ANSWER, AND RESULT AS INTEGER VARIABLES 
3 DEFINE AIM AS AN INTEGER VARIABLE 


4 DEFINE LOSE AS AN INTEGER VARIABLE 
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8 


2 


18, 


Ji dl 


LET ANSWER = 0 


IF PLTLDR(A) NE A AND COCDR(A) NE A 
Hive DRAM PLTLORGA) ) PEO: 1 

| 
Pore eAGh TANK IN PiieohnT( PLECAe® ) ) 
LET PLTLDR(TANK) = TANK LET ANSWER = 1 RETURN ELSE 
CALL LOC(A) CALL LOC(PLTLDR(A) ) 


CALL LOS GIVEN X.CURRENT(A),Y.CURRENT(A),2Z.CURRENT 


(PLTLDR(A)),HTTGT(PLTLDR(A)), 


eZ 


X.CURRENT(PLTLDR(A)),Y.CURRENT(PLTLDR(A)),Z.CURRENT 


SeETEDR(A)) ,HTTGT(PLTLDR(A)), 


LS 
ee 
ILS 
16 
Jl 
18 
Ly 
20 
ih 


ae 


23 


Wg 
LET PCT. VIS=P.V(1) 
ie Pets CTeeRITIC AR, Values 
LET LOSE=1 JUMP AHEAD ELSE LET LOSE=0 HERE 
IF LOSE EQ 0 LET ANSWER= 1 RETURN ELSE GO TO COMMO 
‘COMMO' CALL COMMO.PASS.TGT(A) YIELDING AIM 
IF AIM NE 0 
CALL AMMO.CHECK(A,PROJO(PLTLDR(A))) YIELDING RESULT 
IF RESULT EQ 0 LET ANSWER = 1 RETURN ELSE 
LETewen (A) = AIM LET PROMO(A) = PROJO(PLELDR (ee 


Pet eseneaCA) = 1 
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24 SCHEDULE A FIRE(A,AIM) IN MAX. F (UNIFORM. F(10.,20.,3), 
UNIFORM.F(8.,16.,4)) UNITS 

25 LET CHECK.TIME(A) = TIME.A(FIRE) RETURN 

26 ELSE ALWAYS LET ANSWER=1 RETURN END 

Lines 1-5 define the routine and local variables and set 
the initial value of ANSWER. 

Line 6 checks to determine if the tank in question is a 
platoon leader or a company commander; if so, control is 
transferred to line 26, ANSWER is set to 1, and control is 
returned to the calling event. 

Lines 8-9 check to see if the anvpropriate platoon leader 
ms dead". If so, each member of that particular platoon 
is made a "platoon leader". This causes platoon members 
whose platoon leader is destroyed to always go through the 
normal sequence of selecting a target from their own target 
mists. 

Lines 10-17 update the location of the platoon leader 
and platoon member and determine if line of Sight exists 
between the two. If line of sight does not exist, ANSWER 
Hs set to 1 and control is returned to event TARCET.SELECT. 

Line 18 calls routine COMMO.PASS.TARGET and has returned 


the platoon leader's current FOE attribute (AIM). 
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Lines 19-21 determine if the platoon leader has a 
current FOE and checks to see if the platoon member has 
the appropriate ammunition available. If the proper 
ammunition is not available, ANSWER is set to 1, ana 
Bontrol is returned to the calling event. 

ines 22-25 set the proper FOE, PROJO, SCHED, and 
CHECK. TIME attributes on the platoon member and schedule 
the event FIRE to occur in the maximum of the lay and load 
time of the weapon system. 


imine 26 returns control to the calling event. 


f/m. ROUTINE COMMO. PASS. TGT 
Description 

Routine COMMO.PASS.TGT is used by routine 1T72.TACTICS 
mor RED TANK fire control. In the current version of STAR, 
only weapons of type T72 use this routine. The selecting 
TANK, if not a platoon leader attempts to acquire as his 
mor the FOE of his platoon leader. Line of sight must 
exist between the selecting tank and his platoon leader, 
the platoon leader must be alive, the potential target must 
be within the opening range of the platoon member and the 
platoon member must have a FOE. If any of these four 


Ponditions is not met, control is returned to routine 
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T72.TACTICS with AIM = 0. This directs 172.TACTICS to 
allow a normal target selection for the firer. If all 
conditions are met, AIM is set to the pointer value of the 
platoon leader's FOE and T72.TACTICS allows an attempted 
engagement of this FOE. 

Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value 
of the TANK attempting to acquire the FOE of his platoon 
leader. 

BAIM - An integer variable containing the pointer value 
of the platoon leader's FOE. 

AIM - An integer variable which assumes the value O if 
any of the four conditions mentioned in the description 
above are not met. AIM assumes the value of BAIM if all 
conditions are met. 

LOSE - An integer variable which assumes the value 1 if 
line of sight exists between A and his platoon leader. LOSE 
assumes the value 0 if line of sight does not exist. 

R - A real variable which represents the range in meters 


from A to the platoon leader's FOE. 
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Coding and Brief Explanation 


The coding for routine COMMO.PASS.TGT is shown below, 


followed by a brief explanation: 


ik 


10 


a 


ROUTINE COMMO.PASS.TGT(A) YIELDING AIM 

DEFINE A, AIM, BAIM, AND LOSE AS INTEGER VARIABLES 
DEFINE R AS A REAL VARIABLE 

LET BAIM=FOE(PLTLDR(A) ) 

IF BAIM EQ 0 

LET AIM=0 

RETURN 

ELSE 

TF ALIVE.DEAD(BAIM) EQ 1 LET AIM=0 RETURN ELSE 
CALL LOC (BAIM) 


CALL LOS GIVEN X CUSRENT (A) Yo CUReDNTs) -2 CURRIN? 


fA), HTO(A),X.CURRENT(BAIM) , 


2 


13 


14 


LS 


Is 


7 


18 


Y -CURRENT(BAIM);Z. CURRENT (BAUM) HUVeE?( BAIM |e. Vs) 
Wdge I26 the VSS) ly, 

If PO TV is Cie CRitiCAl anes 

LET LOSE=1 JUMP AHEAD ELSE LET LOSE=0 HERE 

TP ViLdsE- Ee ee 

LET AIM=0 


RETURN 
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LowwaLSE 

20 CALL DIST(X.CURRENT(A),Y.CURRENT(A) ,X.CURRENT(BAIM), 
Y. CURRENT (BAIM) ) 

21 YIELDING R 

62 “IF R GT OP. RNG(A) 

23. LET AIM=0 

24 RETURN 

25 ELSE 

26 LET AIM=BAIM 

27 RETURN 


28 END 


Lines 1-3 define the routine and local variables. 

Line 4 assigns to BAIM the pointer value of the platoon 
leader’s FOE. 

Lines 5-8 test the platoon leader's FOE. If the 
meactoon leader has no FOE, AIM is set to 0 and control is 
mecurned to routine 1T72.TACTICS. 

Line 9 insures that BAIM is still alive before proceeding. 
meenot, AIM is set to O and convrol returns to routine 
tm72. TACTICS. 


bine JO updacves the currents «6 ewanma 2 coordinates. 
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Lines 11-15 check line of sight between the observer, A, 
and his potential target, BAIM. If the percentage of the 
target visible to the observer is greater than a user 
Mefined threshold, line of sight exists. 

Lines 16-18 return AIM with a value of 0 to routine 
M72. TACTICS if line of sight does not exist. 

Lines 19-21 calculate the range in meters between the 
observer and the target. 

Lines 22-24 return AIM with a value of O to routine 
T72.TACTICS if the potential target is outside the observer's 
maximum effective range. 

Lines 25-27 return AIM with a value equal to BAIM to 
moutine T72.TACTICS if both the line of sight and range 


tests are satisfied. 


fm. ROUTINE BMP. TACTICS 


Description 

Routine BMP. TACTICS is used by event TARGET.SELECT to 
determine if a BMP's currently accessed threat is being 
engaged by another company member. If so, an ANSWER = 1 


is returned to event TARGET.SELECT and the threat in question 
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is no longer considered a potential target during the 
current TARGET.SELECT. 


Local Variables 





The following are local variables of this routine: 


A - An integer variable containing the pointer value 


of the BMP which is attempting to select a target. 


B - An integer variable containing the pointer value 


of the currently accessed threat in the BMP's detected list. 


ANSWER - An integer variable which is assigned a value 


of 1 if A's potential target, B, is being engaged by another 


company member. 
Coding and Brief Explanation 

The coding for routine BMP.TACTICS is shown below, 
followed by a brief explanation: 

1 ROUTINE BMP.TACTICS(A,B) YIELDING ANSWER 

2 DEFINE A, B, AND ANSWER AS INTEGER VARIABLES 

3 LET ANSWER = 0 

4 FOR EACH TANK IN COMP.UNIT(CO(A )), DO 

5 IF B EQ FOE(TANK) LET ANSWER = 1 RETURN 


6 ELSE LOOP RETURN END 


Lines 1-2 define the routine and local variables. 


Line 3 sets the default value of ANSWER to 0. 
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Lines 4-6 search other company members and determine if 
anyone is engaging A's potential target. The appropriate 
value for ANSWER is set and control returns to event 


PARGET. SELECT. 


me ROUTINE XM1.TACTICS 
Description 

Routine XM1L.TACTICS is used by event TARGET.SELECT to 
determine if an XMl's currently accessed threat is being 
engaged by another platoon member. If this is the case, 
fo ANSWER = 1 is returned to TARGET.SELECT and the threat 
in question is no longer considered a potential target 
during the current target selection event. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
the TANK which is attempting to select a target. 

B - An integer variable containing the pointer value of 
the currently accessed threat in the XM1's detected list. 

ANSWER - An integer variable which is assigned a value 
of 1 if A's potential target, B, is being engaged by another 


platoon member. 


50 





Coding and Brier FKeplanation 


The coding for routine XM1.TACTICS is shown below, 
followed by brief explanation: 

1 ROUTINE XM1.TACTICS(A,B) YIELDING ANSWER 

2 DEFINE A, B, AND ANSWER AS INTEGER VARIABLES 

3 LET ANSWER = 0 

4 FOR EACH TANK IN PLT.UNIT(PLT(A )), DO 

5 IF B EQ FOE(TANK) LET ANSWER = 1 RETURN 


6 ELSE LOOP RETURN END 


Lines 1-2 define the routine and local variables. 

Line 3 sets the default value of ANSWER to 0. 

Lines 4-6 search other ee members and determine 
if anyone in the platoon is engaging A's potential target. 
The appropriate value of ANSWER is set and control is 


meturned to event TARGET.SELECT. 


ma. ROUTINE I[FV.TACTICS 


Description 


Routine IFV.TACTICS is used by event TARGET.SELECT to 
determine if an IFV's currently accessed threat is being 


engaged by another platoon member. If this is the case, an 
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ANSWER = 1 is returned to TARGET.SELECT and the threat in 
question is no longer considered a potential target during 
the current target selection event. 


Local Variables 





The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
the IFV which is attempting to select a target. 

B - An integer variable containing the pointer value of 
the currently accessed threat in the IFV's detected list. 

ANSWER - An integer variable which is assigned a value 
of 1 if A's potential target, B, is being engaged by another 
platoon member. 
Coding and Brief Explanation 

The coding for routine IFV.TACTICS is shown below, 
followed by a brief explanation: 

1 ROUTINE /IFV.TACTICS(A,B) YIELDING ANSWER 

2 DEFINE A, B, AND ANSWER AS INTEGER VARIABLES 

3 LET ANSWER = 0 

4 FOR EACH TANK IN PLT.UNIT(PLT(A )), DO 

5 IF B EQ FOE(TANK) LET ANSWER = 1 RETURN 


6 ELSE LOOP RETURN END 


52 





Lines 1-2 define the routine and local variables. 

Line 3 sets the default value of ANSWER to 0. 

Lines 4-6 search other platoon members and determine 
if anyone is engaging A's potential target. Control is 


men returned to event TARGET.SELECT. 


me, ROUTINE ITV.TACTICS 
Description 

Bouvine ITV. TACTICS 1S identical to routine IFVoTACmiec.. 
Mie coding is shown below. A description, list of local 
variables, and brief explanation of the coding is given in 
routine IFV.TACTICS. 

1 ROUTINE ITV. TACTICS (A,B) YIELDING ANSWER 

2 DEFINE A, B, AND ANSWER AS INTEGER VARIABLES 

3. LET ANSWER = 0 

4 FOR EACH TANK IN PLT.UNIT(PLT(A )), DO 

5 IF B EQ FOE(TANK) LET ANSWER = 1 RETURN 


6 ELSE LOOP RETURN END 


mene §6RROUTINE PRIORITY. AND. ROUND SELECT 
Descriv zion 
Routine PRIORITY.AND.ROUND.SELECT is used by event 


BakGET.SELECT to assign a priority to the threat currently 
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being accessed and to specify the type of ammunition to be 
used against this threat. As previously discussed, these 
priorities and ammunition selections are provided in the 
danger state arrays, DS1 and DS2 (see Tables III and IV in 
chapter V). Danger state arrays provided as part of the 
basic model are currently limited to five BLUE weapon types 
and three RED weapon types, with a maximum of four ammunition 
types each. Weapon system and ammunition codes are shown 

ma cable I. 

Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer ae oi 
imme TANK for which a target priority and an ammunition 
Selection is required. 

B - An integer variable containing the pointer value of 
the currently accessed threat in the selecting TANK's. 

ANSWER - The returned argument from routine AMMO.CHECK. 
An ANSWER = 1 indicates that the required ammunition is 
available. An ANSWER = O indicates the converse. 

I - An integer counter which accesses the appropriate row 


of the danger state array. 
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fe Sn Integer counter which accesses the appropriate 
column of the danger state array. 

THRESHOLD - An integer constant used as an upper bound 
mor bP. 

P - An integer variable which assumes the priority 
value in the currently accessed row and column of the danger 
state array. 

RND - The preferred ammunition type associated with the 
target for which a priority has been assessed. 

Coding and Brief Explanation 

Mine Coding for routine PRIORITY. AND.ROUND. SELECT is 
shown below, followed by a brief explanation: 

1 ROUTINE PRIORITY.AND.ROUND.SELECT(A,B) YIELDING P, 
AND RND 

2 DEFINE A,B,P,RND,I,J,ANSWER,AND THRESHOLD AS INTEGER 
VARIABLES 

3 LET THRESHOLD=99 

4 IF COLOR(A) EQ BLUE 

5 LET I=WPN. TYPE(A) 

6 iF IT EQ 1 LET [=2 

7 ALWAYS LET I=I-1 


om CO) MeO, i), 16,19 ,112 sore 
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O° She =O Com lo Eanes 

'T3' LET I=3 GO TO BANDS 

'I6' LET I=6 GO TO BANDS 

'T9' LET T=9 GO TO BANDS 

ee seers GOTO BANDS 

'BANDS' LET I=I+I+MIN.F(TRUNC.F(RANGE(A)/1000) ,2) 
GO TO J1,J9,J17 PER WPN.TYPE(B)-6 
we? ee I= COM lems lon? 

no EE =o eco COm oman 

wy ~=~ChLEwed=17 GO Te silane 

SS uae 

ieee oL (LJ) 

IF P GE THRESHOLD RETURN ELSE 

LE@ RND=Doler ae ) 

CALL AMMO.CHECK(A,RND) YIELDING ANSWER 
IF ANSWER EQ 0 LET J=J+2 GO TO START 
ELSE RETURN 

ELSE 

LET I=WPN.TYPE(A)-6 

COPEUMILORI 3; | “PEnaer 

TIO” “LER=1=0 G0 TO omenhs 


'TI3' LET I=3 GO TO SBANDS 


156 





cul 
32 
5B. 
34 
35 
36 
Bi 
Bo 
Do 
40 
41 
42 
525: 
44 
45 
6 
47 
48 


49 


~'IT6' LET I=6 GO TO SBANDS 


'SBANDS' LET I=I+1+MIN.F(TRUNC.F(RANGE(A)/1000), 2) 
LET J=WPN.TYPE(B) 

IF J=l1 LET J=2 

ALWAYS LET J=J-1 

CO TOmdin. , JICeea 25 da Ske) 
‘JJL' LET J=1 GO TO SSTART 

'JJ9' LET J=9 GO TO SSTART 

(017° LEWGe17? Goro ssTaArs 

'JJ25' LET J=25 GO TO SSTART 

'JJ33' LET J=33 GO TO SSTART 

‘SSTART' 

LET P=DS2(I, J) 

IF P GE THRESHOLD RETURN ELSE 

LET RND=DS2(I,J+1) 

CALL AMMO.CHECK(A,RND) YIELDING ANSWER 
IF ANSWER EQ 0 LET J=J+2 GO TO SSTART 
ELSE RETURN 


END 


Lines 1-2 define the routine and local variables. 


Line 3 sets the value of THRESHOLD to 99. 


Line 4 accesses the BLUE portion of the routine. 
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Lines 5-7 calculate the firer's weapon type to insure 
that it reflects one of the available weapon types in 
the danger state array. 

Lines 8-13 reset the row index, I, based on the weapon 
type of the firer, A, and transfer control to label 'BANDS'. 
Line 14 adds a minimum of 1 and a maximum of 3 to the 
current value of I. This accesses the proper row of the 
danger state array in accordance with the weapon type of 

the firer and the range band of the target. 

Lines 15-19 set an initial value for the column index, 
J, based on the weapon type of the target. 

Lines 20-21 calculate the nee DELOrRT Gy witli che 
given rangeband. If the priority equals or exceeds the 
value of eenSaoUN, the target cannot be engeged and control 
Beturns to event TARGET.SELECT. 

Line 22 returns the type of ammunition required to engage 
the target. 

Lines 23-25 verify that the required ammunition is 
available. If not the program transfers to line 19. If 
fae ammunitauon 1s averilable, the priority, P, and ammunition 
type, RND, are returned to event TARGET.SELECT. 


memo waceessesuune PU nem mommot che routine. 
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Lines 28-31 set an initial value for the row index, I, 
based on the weapon type of the firer, and transfer control 
to label 'SBANDS'. 

Line 32 adds a minimum of 1 and a maximum of 3 to the 
current value of I. This accesses the proper row of the 
danger state array in accordance with the weapon type 
of the firer and rangeband of the target. 

Lines 33-41 set an initial value for the column index, 
J, based on the weapon type of the target. 

Lines 42-44 calculate the target priority within the 
given rangeband. If the priority equals or exceeds the 
value of THRESHOLD, the target cannot be engaged and a 
return to event TARGET.SELECT is effected. 

Line 45 returns the type of ammunition required to 
engage the target. 

Lines 46-48 verify that the required ammunition is 
Ewarlable. If not the program transfers to line 32. If 
mie ammunition 1s available, the priority, P, and 


ammunition type, RND, are returned to event TARGET.SELECT. 


DD. ROUTINE AMMO.CHECK 
Description 
Routine AMMO.CHECK is used by three other STAR routines: 


Iba, 





T72.TACTICS., PRIORITY ,. AND ROUND.SELECT, AND WE.MISS<.. In all 
eases a return of ANSWER = 0 from AMMO.CHECK indicates that 
the ammunition of the type specified is not available. The 
converse is-true for ANSWER = l. 

If the required ammunition 1s available in 1T172.TACTICS, 
the TANK is allowed to select as his FOE the FOE of his 
platoon leader. The TANK then schedules a FIRE on this 
FOE. If the required ammunition is not available, the TANK 
initiates a normal target selection by returning to event 
TARGET.SELECT. 

Samvlarly,ean routine PRIORITY AND] ROUND. SELECT, 2 
lack of the required ammunition will cause a further search 
of the danger state array. 

Pinally, a lackpwotethe equi redmanmumsion aim rowupime 
WE.MISS initiates a target selection as opposed to firing 
again on the same target. The lack of ammunition may cause 
another target to assume a higher priority as determined 
from the danger state array. 

Local Variables 
The following are local variables of this routine: 
A - An integer variable containing the pointer value of 


TANK for which ammunition is being checked. 
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RND - An integer variable containing the numeric type 
of ammunition being checked. 

ANSWER - An integer variable which takes on the value l 
if ammunition of the type corresponding to RND is available, 
and the value 0 if this type of ammunition is not available. 
Coding and Brief Explanation 

The coding for ROUTINE AMMO.CHECK is shown below, 
followed by a brief explanation: 

1 ROUTINE AMMO.CHECK(A,RND) YIELDING ANSWER 

2 DEFINE A,RND,AND ANSWER AS INTEGER VARIABLES 

3 LET ANSWER=1 

4 GO TO AP,HE,AW1,AW2 PER RND 

5 '‘AP' IF AP.TOW(A) EQ O LET ANSWER=0 ALWAYS RETURN 

6 'HE' IF HE.DRAG(A) EQ 0 LET ANSWER=0 ALWAYS RETURN 


7 '‘AW1L' IF AW1L.OR.MSL3(A) EQ 0 LET ANSWER=0 ALWAYS 


8 ‘AW2' IF AW2.0R.ADM(A) EQ 0 LET ANSWER=0 ALWAYS 


Lines 1=3 define the routine, local variables, and set 


the variable ANSWER to a default value of 1. 
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Line 4 directs a transfer to one Of “Lour “Uawoie aor, 
means of a computed go to statement. RND may take on the 
Helues 1, 2, 3, or 4. 


Lines 5-8 check the appropriate ammunition count. 


EE. ROUTINE STOP.TO.FIRE 
Description 

Routine STOP.TO.FIRE is used by events FIRE and IMPACT 
to halt and restart missile firing weapon systems at 
appropriate times. In general, missile firing systems will 
stop propr to firing and begin movement after assessing 
results of EeCimeelireman round. Li other than missile 
firing systems are required to use these tactics, the IF 
miement prior co CAbm ofTOP.TO,.FIRE in events FIRE and 
IMPACT must be changed to test for the added weapon system 
types. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
mae TANK for which a stop or Start is required. 

STOPCOUNT - An integer variable which assumes the value 
1 if the routine is called from event FIRE, or the value 2 


im the roulltine 1s Called from event IMPACT. 


ie? 





Boding and Brief Explanation 


The coding for routine STOP.TO.FIRE is shown below, 


followed by a brief explanation: 


ll 


2 


ROUTINE STOP.TO.FIRE(A,STOPCOUNT) 
DEFINE A AND STOPCOUNT AS INTEGER VARIABLES 
IF PROJO(A) EQ 3 RETURN ELSE 

CO ROO x2eer nh oLOrCouUNT 

' TERISPwHeA)=07 0 

mae TSP) CA) = PaMn sy 

RETURN 

"62° ULE Seeen)=7.0 

Per Tl Spi tiie 

LE SsseonD. 20? (A) =0 

RETURN 


END 


Lines 1-2 define the routine and local variables. 


Line 3 insures that control is returned to the calling 


event if anything other than a missile (ammunition types 1 or 


mis veing tired. 


Line 4+ transfers control to label X1 (a stop called from 


Sent “ike ) iP esolOPCOUNT is 1 or Go label <2 (a start.called 


from event IMPACT) if STOPCOUNT is 2. 
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Lines 5-7 set the firer's speed to zero, record the time 
that the speed was set to zero, and return control to event 
PiRE . 

Lines 8-11 set the firer's speed to desired unit. speed, 
record the time that this speed was set, reset the second 
mot counter attribute to zero, and return control to 


event IMPACT. 


me, ROUTINE SET. MUZZLE. VEL 
Description 

FOouGine of).MUZZEO. VEL is wWsed by event FIRE to cobtarm 
Ene velocity of the type of ammunition being fired. The 
range to the target divided by this velocity yields the 
time of flight of the round. This time is used by event 
FIRE to schedule event IMPACT. As discussed in the PREAMBLE 
Section, the ML, M2, M3, and M4 attributes for muzzle 
velocities are associated with projectile or ammunition 
Mypes 1, 2, 3, or 4. 
Local Variable 

ies OlLOwrne tvs sa LOcaI VarvaeblWemor tals soutine: 

A ~- An integer variable containing the pointer variable 


of the weapon system for which a muzzle velocity is required. 
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Coding and Brief Explanation 

ime coding for routine SET. MUZZLE.VEL is shown below. 
As discussed previously, PROJO(A) is an integer variable 
which assumes values 1 through 4 depending on the ammunition 
type being fired. This keys the computed go to statement to 
the appropriate label. The remander of the code is self 
explanatory. 

ee nOUl TNE SET. MUZZLE. VEL(A) 

2 DEFINE A AS AN INTEGER VARIABLE 

3 GO TO AP, HE, AW1, AW2 PER PROJO(A) 


™ ‘AP LET MAL. Vent A) 


M1(A) RETURN 


5 ‘HE’ LET MZL.VEL(A) M2(A) RETURN 


6 '‘AW1L' LET MZL.VEL(A) 


I 


M3(A) RETURN 


—) ‘AW2' SSET MAU ven A) M4(A) RETURN 


e. END 


GG. ROUTINE DECREMENT. AMMO 


Description 
Routine DECREMENT.AMMO is used by event IMPACT to reflect 
the expenditure of ammunition. Any of four ammunition 


Categories defined by the user may be decremented. 
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Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value of 
the TANK for which ammunition is being decremented. 

RND - An integer variable containing the numeric type 
of ammunition being decremented. 
Coding and Brief Explanation 

The coding for routine DECREMENT.AMMO is shown below, 
followed by a brief explanation: 

1 ROUTINE DECREMENT. AMMO(A,RND) 

2 DEFINE A AND RND AS INTEGER VARIABLES 

peeco TO AP Ee AW yAW 2 SPER RNP 

4 ‘'AP' LET AP. TOW(A)=AP.TOW(A)-1 RETURN 

5 'HE' LET HE.DRAG(A)=HE.DRAG(A)-1 RETURN 

6 'AWL' LET AW1.OR.MSL3(A)=AW1.OR.MSL3(A)-1 RETURN 

7 '‘AW2' LET AW2.0R.ADM(A)=AW2.0R.ADM(A)-1 RETURN 

Saee ND 

Lines 1-2 define the routine and local variables. 

Line 3 directs a transfer to one of four labels by 
means of a computer go to statement. RND may take on the 


morues 1, 2; 3, or 4, 
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Lines 4-7 decrement the appropriate ammunition type by 
subtracting 1 from a TANK's ammunition type attribute. 


Control is returned to event IMPACT. 


ma. ROUTINE COMPUTE 
Description 

Routine COMPUTE is used by event IMPACT to assign a 
probability of hit for each weapon system and ammunition 
type. The values generated by routine COMPUTE are gross 
approximations and are used solely to provide values which 
will exercise the model. Users should supply their own 
mc probability routines. Recall that in current version 
me oTAR, a hit is synonomous with a catastrophic kill. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing tne pointer value of 
the TANK which has fired. | 

ID - An integer variable containing the pointer value of 
the target TANK. 

PCT.VIS - A real variable which may take on continous 
values between 0 and 1. Note that a PCT.VIS of less than 


1 reduces the computed probability of hit. 





Coding and Brief Explanation 


The coding for routine COMPUTE is shown below, followed 
by a brief explanation: 
1 ROUTINE COMPUTE(A,ID,PCT.VIS) 
2 DEFINE A AND ID AS INTEGER VARIABLES 
3. DEFINE PCT.VIS AND R AS REAL VARIABLES 
‘4 CALL DIST(X.CURRENT(A),Y.CURRENT(A) ,X.CURRENT(ID), 
Y.CURRENT(ID)) YIELDING R 
5 LET RANGE(A) = R 
6 GO TO XM1,XM1,IFV,ITV,DIVAD,DRAGON,T72,BMP,ZSU PER 
WPN. TYPE (A) 
7 i 7 2 ee PHA) == RANG A)/ 2000. sGerLOnaou 
8 'IFV' ‘'ITV' 'DRAGON' LET PH(A) = 1 - .15 * RANGE(A) / 
3000.0 GO TO ZSU 
9 ‘'BMP' LET PH(A) = 1 - .25 * RANGE(A) / 3000.0 GO TO 
ZSU 
70 "Z5U" "DEVAD' TP PROJOUA)=3° UBT PH Aj=.3 ALWAYS GET 
PH(A)=PCT.VIS*PH(A) RETURN 
11 END 
Lines 1-3 define the routine and local variables. 


Line 4 calculates the current range to the target. 
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Line 5 sets the RANGE attribute of the firer to the 
current range calculated above. 

Line 6 directs a transfer to one of 9 labels by means 
of a computed go to statement. 

Lines 7-10 compute the appropriate probability of 


hit; control is then returned to event IMPACT. 


me, ROUTINE TALLY.HIT.STATE 
Description 

Routine TALLY.HIT.STATE is used by event IMPACT to 
account for each type of kill sustained by a weapon system. 
The following categories are available: ND.HIT, M.KILL, 
F.KILL, MF.KILL, and K.KILL. These categories are weapon 
system attributes and are defined in the discussion of the 
PREAMBLE. In addition, this routine accumulates the total 
number of hits sustained and the total number of rounds 
fired at the weapon system (hits plus misses). Currently, 
only the "K.KILL' and 'MISS' sections of this routine are 
used. 
Local Variables 

The following are local variables of this routine: 

TANK - An integer variable containing the pointer value of 


the weapon system for which a hit category is being updated. 
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DAMAGE.NUM - An integer variable which takes on the 
values 1 through 6 depending on the type of hit sustained. 
Coding and Brief Explanation 

The coding for routine TALLY.HIT.STATE is shown below, 
followed by a brief explanation: 

1 ROUTINE TALLY.HIT.STATE( TANK, DAMAGE. NUM) 

2 DEFINE TANK AND DAMAGE.NUM AS INTEGER VARIABLES 

3 GO TO NO.DAMAGE,M.KILL.F.KILL,MF.K{LLL,K.KILL,MISS 
PER DAMAGE.NUM 

4 'NO.DAMAGE' 

5 LET ND.HIT(TANK)=MD.HIT( TANK) +1 

6 LET NUM.HIT(TANK)=NUM.HIT( TANK) +1 

7 LET FIRED. AT(TANK)=FIRED.AT( TANK) +1 

oF 'MeKTLE 

9 LET M.HIT(TANK)=M.HIT( TANK) +1 

10 LET NUM.HIT( TANK) =NUM.HIT( TANK) +1 

11 LET FIRED. AT( TANK )=FIRED. AT( TANK) +1 

2 RETURN 

ie Feith * 

ee Leer at 1 TANK) =F .HIT( TANK) +2 

15 LET NUM.HIT( TANK)=NUM.HIT( TANK) +1 


16 LET FIRED. AT(TANK)=FIRED. AT( TANK) +1 
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17 RETURN 

18 ‘MF.KILL' 

19 LET MF.HIT( TANK) =MF.HIT( TANK) +1 

20 LET NUM.HIT(TANK)=NUM.HIT(TANK)+1 

21 LET FIRED. AT(TANK)=FIRED. AT(TANK)+1 

22 RETURN 

pow °K. KILL’ 

24 LET K.HIT(TANK)=K.HIT(TANK)+1 

25 LET NUM.HIT( TANK) =NUM.HIT(TANK)+1 

26 LET FIRED. AT(TANK)=FIRED. AT( TANK) +1 

27 IF COLOR(TANK) EQ BLUE AND M.BLUE.ALIVE(TANK) EQ 1 
REMOVE TANK FROM BLUE. ALIVE 

28 REMOVE TANK FROM PLT. UNIT(PLT( TANK) ) 

29 REMOVE TANK FROM COMP.UNIT(CO(TANK)) 

30 RETURN ELSE 

31 IF M.RED.ALIVE(TANK) EQ 1 REMOVE TANK FROM RED. ALIVE 

32 REMOVE TANK FROM PLT.UNIT(PLT(TANK)) REMOVE TANK FROM 
COMP. UNIT(CO( TANK) ) 

33 ALWAYS RETURN 

34 ‘MISS’ 

35 LET FIRED. AT(TANK)=FIRED. AT( TANK) +1 


36 RETURN 
oy) END 
al 





Lines 1-2 define the routine and local variables. 

Line 3 uses a computed go to statement to access the 
appropriate hit category. 

Lines 4-7 increment by one the number of no damage 
hits sustained, the total number of hits sustained, and the 
total number of rounds fired at the weapon system. Control 
is then returned to event IMPACT. 

Lines 8-12 are similar to those above except that the 
number of mobility hits sustained is incremented by one. 

Lines 13-17 are similar to those above except that the 
number of firepower hits sustained is incremented by one. 

Lines 18-22 are similar to those above except that the 
number of mobility and firepower hits are incremented by 
one. 

Lines 23-26 are similar to those above except that the 
number of catastrophic kills is incremented by one. Control 
is not returned to event IMPACT until set manipulation is 
accomplished by the next 7 lines. 

Lines 27-30 insure that the TANK is BLUE and that he has 
not already been removed from the set of blue, alive tanks. 


If these conditions are met the TANK is removed from sets 


we 





Coding and Brief Explanation 


The coding for routine WE.MISS is shown below, followed 
by a brief explanation: 
1 ROUTINE WE.MISS(A) 
2 DEFINE A AND ANSWER AS INTEGER VARIABLES DEFINE R 
AS A REAL VARIABLE 
3 LET MISSHOT(A) = MISSSHOT(A) + 1 
4 GO TO XM1,XM1,IFV,ITV,DIVAD,DRAGON,T72,BMP,ZSU PER 
WPN. TYPE (A) 
5 Ae 'DIVAD' 
ee Er  NikesSonOUCA) EOe2 eGR HEISHOT(AjenQ 2 
7  '‘MOVE' 
So LEM eretsnonGn) = Or LET Missotort(A) = 0 BHT ROm 2) = =o 
9 SCHEDULE A HIDE(A,1) NOW 
LO Ke lURN Bios 
11 CALL AMMO.CHECK(A,PROJO(A)) YIELDING ANSWER 
12 IF ANSWER EQ 0 GO TO ZSU 


13 ELSE GO TO FIRE 


14 'IFV' 
1S es ELS 
16 'DRAGON' 


7 ee ensHon A) + MIisSSHOUGA mens: 


ao 





us} 


~ 
20 
All 
2 
23 
24 


25 


eo TC MOVE ELSE GO TO T72 

‘D728 

‘BMP ' 

ES 

LET FOE(A) = 0 SCHEDULE A TARGET.SELECT(A) NOW 
RETURN 

ME TRE * 


CALL DIST(X.CURRENT(A) ,Y.CURRENT(A) ,X.CURRENT(FOE)), 


Y.CURRENT(FOE(A) )) 


26 


27 


28 


29 


30 


YIELDING R 

LET RANGE(A) = R LET SCHED(A) = 1 

SCHEDULE A FIRE(A,FOE(A)) IN UNIFORM.F(4.,10.,8) UNITS 
LET CHECK. TIME(A) = TIME. A( PERE) 


RETURN END 


Lines 1-2 define the routine and local variables. 


Line 3 increments by one the MISSSHOT attribute of 


the firer. 


Line 4 directs a transfer to the appropriate label by 


means of a computed go to statement. The weapon type of 


the firer keys this transfer. 


Line 5 labels the XML and DIVAD section of the routine. 
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Lines 6-9 test the status of the HITSHOT and MISSSHOT 
attributes of the firer. Two misses or two hits (K-kills) 
cause the hit and miss counters and FOE attributes of the 
firer to be reset to 0. A movement to a full defilade 
position is accomplished and control is returned to event 
IMPACT. 

Lines 10-11 are executed if the hit and miss test above 
fails. These lines insure that the required ammunition is 
available prior to firing again on the same target. 

Lines 12-14 label the IFV, ITV, and DRAGON section of 
the routine. 

Lines 15-16 count the number of rounds fired from the 
Same position. If this sum is greater than or equal to 2, 
then hit and miss counters are reset to 0, the FOE attribute 
of the firer is reset to 0, a movement to defilade is 
accomplished and control is returned to event IMPACT. 

Lines 17-19 label the T72, BMP, and ZSU section of the 
routine. 

Lines 20-21 reset the FOE attribute of the firer to 0, 
and schedule an immediate TARGET.SELECT. This applies to 


all weapons of type T72, BMP, and ZSU. It also applies to 


1S 





Lines 31-33 are similar to lines 27-30 except that they 
apply to RED TANKs. 
Lines 34-36 increment by one the total number of rounds 


fired at the TANK and return control to event IMPACT. 


JJ. ROUTINE WE.MISS 
Description 

Routine WE.MISS is used by event IMPACT when anything 
other than a catastrophic kill (K-kill) is registered by 
the firer. Depending on the number of rounds fired and the 
weapon type of the firer, routine WE.MISS causes a movement 
to defilade, a target selection, or another engagement of 
tie current target. 
Local Variables 

The following are local variables of this routine: 

A - An integer variable containing the pointer value 
of the TANK for which a movement to defilade, target 
selection, or second engagement is required. 

ANSWER - The returned argument from routine AMMO.CHECK. 
An ANSWER=1 indicates that the required ammunition is 


available. An ANSWER = O indicates the converse. 
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weapons of type XMl and DIVAD which do not have the 
ammunition type required to re-engage their current FOE. 
Control is returned to event IMPACT. 

Lines 22-27 calculate the current range to the target, 
schedule a FIRE event in the appropriate amount of time, 
and set the CHECK.TIME attribute of the firer to the time 
for which the fire is scheduled. Control is then returned 


to event IMPACT. 


me. ROUTINE WE.HIT 
Description 

Routine WE.HIT is used by event IMPACT when a 
catastrophic kill (K-kill) isinflicted by the firer. Depend- 
ing on the number of rounds fired previously and the weapon 
type of the firer, routine WE.HIT causes a movement to 
Serilade (event HIDE) or another target selection. A 
miscussion of specific firing tactics for each weapon 
system was presented in chapter III. 
Local Variables 

The following is a local variable of this routine: 

A - An integer variable containing the pointer value of 
the TANK for which a movement to defilade or target 


meltection iS required. 
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Coding and Brief Explanation 


The coding for routine WE.HIT is shown below, followed 


by a brief explanation: 


i 


ROUTINE WE.HIT(A) 


2 DEFINE A AS AN INTEGER VARIABLE 


3 


LET HIPSHOT( A) = HETSHOR(A) + 1 


4 GO TO XM1,XM1,IFV,ITV,DIVAD,DRAGON,T72,BMP,ZSU 


WPN. TYPE(A) 

5 'XM1' ‘DIVAD’ 
6 IF (HITSHOT(A) EQ 2) OR (MISSSHOT(A) EQ 2) OR 
7 garreaTi EQ 1 AND MISSSHOT(A) EQ 1) 
8 'MOVE' 
9 LET FOE(A) = 0 

10 LET HITSHOT(A) = 0 LET MISSSHOT(A) = 0 

11 SCHEDULE A HIDE(A,1) Now 

12 RETURN ELSE GO TO ZSU 

ieee TRY 

Ty | 

15 'DRAGON' 

16 IF HITSHOT(A) + MISSSHOT(A) GE 2 

17 GO TO MOVE ELSE GO TO 172 

Nem une: 


ales 


Pier. 





19 ‘BMP’ 

20 Z5U | 

21 SCHEDULE A TARGET.SELECT(A) NOW RETURN 

22 END 

Lines 1-2 define the routine and local variable. 

Line 3 increments the HITSHOT attribute of the firer 
by one. 

Line 4 directs a transfer to the appropriate label by 
means of a computed go to statement. The weapon type of the 
mirer keys this transfer. 

Line 5 labels the XM1 and DIVAD section of the routine. 

Lines 6-10 test the status of the HITSHOT and MISSSHOT 
attributes of the firer. Two misses, two hits (K-kills), 
or a miss followed by a hit cause the hit and miss counters 
to be reset to 0, effect a movement to defilade and return 
Control to event IMPACT. 

Lines 11-13 label the IFV, ITV and DRAGON sections of 
the routine. They also serve as a transfer point if lines 
Band 7 are not true. 

Line 14 counts the sum of the number of rounds fired 
from the current position. If this sum is greater than 


or equal to 2, the hit and miss counters are reset to 0, 
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program flow is transferred to line 9, a movement to 
defilade is effected and control is returned to event 
IMPACT. 

Lines 16-18 label the T72, BMP, and ZSU section of the 
routine. These lines also serve as a transfer point if line 
14 is not true. 

Line 19 schedules an immediate TARGET.SELECT for weapons 
of type T72, BMP, and ZSU. Moreover, if BLUE weapon systems 
have failed their hit and miss counter tests, a TARGET.SELECT 


is also scheduled for these weapon systems. 
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V. INPUT REQUIREMENTS 


fe «6C LMSCRIPT INPUT 
General 

Abe SivsCRIPT Anipue to SEAR is in free field card 
input; that is, each data value must be separated by a blank 
space. This is the only formatting requirement for SIMSCRIPT 
input. A sample card or cards follows the discussion of 
each set of input values described below. 
R.NUM.ALIVE, B.NUM.ALIVE, and DELTA.T 

R.NUM.ALIVE and B.NUM.ALIVE are integer values equal to 
the number of RED and BLUE TANKs to be created. DELTA.T is 
a real variable whose value is the time in seconds between 
detection scheduling events (event STEP.TIME). These values 
Sould appear on a card as: 

leze77 15.0 

which represent 162 RED TANKs, 77 BLUE TANKs, and a DELTA.T 
of 15 seconds. 
PNUM_and CNUM 

PNUM and CNUM refer to the number of platoon and company 
sets to be created. These values could appear on a data 
card as: 

65) 1s 

which represent 63 platoons and 15 companies. 
meorOP, Y.oTOP, R.PCT.ATT, and B. PCT. ArT 

X.STOP and Y.STOP are real variables which are the 
coordinates at which RED TANKs are halted. The battlefield 


is a 10 kilometer by 10 kilometer Square and the values for 


em 





these coordinates may range from 0.0 to 10000.0. R.PCT.ATT 
and B.PCT.ATT are the attrition percentages for RED and BLUE 
forces, which, if equaled or exceeded, will stop the 
Simulation. Both are real variables ranging from 0.0 to 
1.0. These 4 values might appear on a date card as: 
2500 -Omz000-Cmmag0 . 60 

which represent an X.STOP coordinate of 2500.0, a Y.STOP 
Boordinate of 2000.0, a RED attrition point of 90 percent, 
mia 2 BLUE attrition point of 80 percent. 
Mol and D52 

Each force has a danger state array: DSl for BLUE 
Mmerces and DS2 for RED forces. The rows of each array are 
keyed to the weapon type of the firer and the range band of 
the target (less than 1000 meters, between 1000 and 2000 
Meiers, and greater than 2000 meters). Consequently, each 
firer will have three rows, one for each range band. The 
columns are keyed to the number of target types available. 
Each target type has a set of 8 columns assigned to it. A 
macro look at DS51 would reveal a format similar to the one 


below where each block (*) represents 3 rows and 8 columns. 


TARGET 


XML 
ry 
ci, 
DIVAD 
DRAGON 








The total dimension of this array is (5 x o) by (3 camee or 
360 values. 


A micro look at the XM1-T72 block (*) would show: 


ee 
JL i 2 2 as, a LD Ze 
XML al Al Ze 2 oe Ne, oo yh) 
41 1 43 2 he, a7 a7 a2 


Consider the first row which represents the less than 
1000 meter rangeband. The numbers in the columns are to be 
read in pairs. For example, the first and second numbers in 
maw 1 form the pair (1,1) and mean that the AMI "s first 
priority in this rangeband is a T72, and the preferred 
ammunition for use against the T72 is type 1, APDS. The 
T72 is also second priority within this rangeband using 
ammunition type 2, HEAT. 

Looking at the second row, the 1000-2000 meter rangeband, 
reveals a Similar ordering and ammunition selection. The 
72 is still first and second priority within the rangeband, 
a constant value of 20 being added to priorities in the 
second row. Any constant could be added to the basic 
priority value in a row, but the resulting priority number 
must be larger than the largest priority number in a prior 
row associated with that firer. An exception to this rule 
are the entries with value 99. These values are used as 
Stopping values when routine PRIORITY. AND. ROUND.SELECT 


accesses a danger state array. When a priority of 99 is 


ee 





retrieved from the array, this indicates that the target 
type should mt be engaged. 

im the third @gamcgeband, the 172 is again first priority 
with ammunition type 1, APDS, and then drops to third prior- 
ity with ammunition type 2, HEAT. An examination of the 
complete set of danger state array rows and columns 
associated with the XM1 (Table III) provides an explanation 
oe this priority situation. 

In row 3 (the greater than 2000 meter rangeband) the 
BMP assumes second priority using ammunition type 2, HEAT. 

Note in row 1 that ammunition type 3 (.50 caliber 
machingun for the XMl1) is used against the BMP and ZSU. 

Use of ammunition type 3 is restricted to targets in this 
range band only. This reflects the relatively short 
effective range of small caliber ammunition. 

The remaining rows and columns of DS1l are constructed 
in a Similar manner. Ds2 is formed the same way except 
the RED force firers are used in constructing rows and BLUE 
force targets are used in constructing columns. DS1 and 
DS2 are shown in their entirety in tables IV and V. 

To input these values, the user may type each row on 
one or more cards. Each vaue 1s an integer separated from 
the next value one or more spaces. 

The first 2 rows of DS1l as prepared for input in the 
current version of STAR are shown below: In this case each 


2 cards represent 1 row of the DSl array. 
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Seo oooo ce 9F «LT SH 66 66 66 66 
66 66 66 66 2 92 T SZ 66 66 66 66 
SUmoommceuNaG a4 4 £— 9 66 66 € SG 


(sd 


itty 1c 
lieenic. -C 


Ley 


- NOILdod 


NP Pec PhS AE 


aio 0G «6660006 6660 Ce 
Gamoo 66 66 66 2 
OmeoG, 06 66 66 2 


TNX 
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66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 
66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 66 
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MomoemecmoomcnocsL ac 606 66 66 66 I tic 2 €2 66 66 66 66 @ ez T *T2 

66 66 a eeeeie9 660 66 t S T U4 Umomogrooroo 66 ¢ ¢ t L 
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AL WIdvVa 
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CARD 1 1 i 2 299 999999 3 24 
CARD 2 5 3m99 998G9 7 2 8 3 99 99 
CARD 3 21 122 299 99 99 99 23 224 1 
CARD 4 99 99 99 99 25 1 26 299 99 99 99 
Attributes 
A number of attributes of the temporary entities, TANKs, 
must be input on data cards. In the discussion that follows, 
real variables will be denoted by an R in parentheses follow- 
the attribute name. Real attributes may be input with or 
without decimal points. Integer attributes will be denoted 
by an I-xxxx in parentheses following the attribute name. 
The xxxx sequence represents the maximum numerical value 
that the attribute may be assigned. These maximum sizes 
must be strictly observed since many of the integer attributes 
are bit packed (see the discussion of the PREAMBLE). Integer 
attributes may not be input with decimal points. 
NAME(I-1023) - The first TANK has the name 1 with 
subsequent TANKs numbered sequentially and the last BLUE 
TANK assigned a NAME equal to the value of B.NUM.ALIVE. 
RED TANKs begin with a NAME equal to B.NUM.ALIVE + 1, and 
end with a NAME equal to the value of R.NUM.ALIVE. 
COLOR(L-Wmeee A value of 1 imdteates a EeUe TANK. “A 
value of O denotes a RED TANK. 
WPN.TYPE(I-31) - The nine weapon types and their codes 


are shown below: 
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CO ON) On WN — WwW ae) eS 


y 


XM1(105mm main gun) 


XM1(120mm main 
IFV 

iy 

DIVAD 

DRAGON 

ee 

BMP 


ZOU 


gun) 


VEH. TYPE(I-31) - The 12 weapon types 


are shown 


ae a 
bY oO 


ie 


AP.TOW(I-63) - Ammunition type 1. 


10 © AI GS Uno 2 oc 


below: 


XM1(105mm main 
XM1(120mm main 
XM1(120mm main 
XM1(120mm main 
XM1(120mm main 
skins 

IOBR Ye 

DIVAD 

DRAGON 

ee 

BMP 

Za U 


m@a@tcgial amount on board. 


gun) 

gun, 40 round 
gun, 43 round 
gun, 49 round 


Sui: 52 sound 


and their codes 


Cont uaura tiem) 
configuration) 
Cort reura LEO) 


Contreuratcon) 


This represents the 


Table I provides a guide to the 


meeciiic type of ammunition that this amd the next three 
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ammunition types represent with respect to a specific weapon 
system. If an ammunition type is not carried, a 0O should 
be entered. 

HE.DRAG(I-63) - Ammunition type 2. 

AW1.OR.MSL3(I-63) - Ammunition type 3. 

AW2.0R.ADM(I-63) - Ammunition type 4. 

SEC (I-2047) - The section number assignment. Since this 
organizational attribute has no effect on execution of STAR, 
any desired numbering scheme may be used. 

PLT(I-2047) - The platoon number assignment. It is 
important for fire control purposes that TANKs be grouped 
sequentially in platoons and that TANKs in headquarters 
elements are assigned to the same platoon. The TANKs in a 
battalion headquarters, for example, are considered a platoon 
mom fire control purposes and should all have the same platoon 
number assigned to them. 

CO(I-1023) - The company number assignment. The comment 
above with respect to headquarters elements also applies in 
making company number assignments. 

BN(I-127) - The battalion number assignment. Any 
numbering scheme may be used. 

RGT(I-255) - The regiment number assignment. Any 
numbering scheme may be used. BLUE forces should have a 
mm anput. 

BDE(I-7) - The brigade number assignment. Any numbering 
scheme may be used. RED forces should have a O input. 

DIV(I-7) - The division number assignment. Any 
numbering scheme may be used. 
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X.CURRENT(R) - The TANK's initial X coordinate on the 
battlefield. 

Y.CURRENT(R) - The TANK's initial Y coordinate on the 
battlefield. 

SPD(R) - The TANK's initial speed in meters per second. 

DIR.OF.MVMT(R) - The TANK's initial direction of 
movement in mils. An angle measured clockwise from East is 
negative. An angle measured counterclockwise from East is 
positive. Angles are entered in mils and converted to 
radians for use in the program. 

PRI.DIR(R) - The primary direction of search measured 
in the same manner as DIR.OF.MVMT. 

ML, M2, M3, M4(all I-65535) - The muzzle velocities in 
meters per second associated with each of the four 
ammunition types carried by the TANK. If an ammunition is 
not carried by a TANK, the associated velocity should be 
pMiput as O. 

COCDR(I-9999999) - The NAME of the TANK's company 
commander. If the TANK is to be the company commander, the 
TANK's own NAME SHOULD be entered here and also for the 
PLTLDR and SECLDR attributes described below. 

PLTLDR(I-9999999) - The NAME of a TANK's platoon leader. 
If the TANK is to be the platoon leader, the TANK's own NAME 
Should be entered here and also for the SECLDR attribute 


described below. 
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SECLDR(I-9999999) - The NAME of a TANK's section leader. 
If the TANK is to be the section leader, the TANK's own 
name should be entered here. 

OP.RNG(I-4095) - The TANK's maximum opening range in 
meters. 

A complete example of attribute input is shown in table 
VI. A brief example showing the relationship of the NAME, 
organization and leader attributes is shown below: 


NAME SEC ely CO COCDR POI SECLDR 


1 iL tL il 1 1 1 
2 i i 1 il 1 i 
3 2 2 1 i 3 3 
4 2 sf 1 iL 3 3 
5 2 2 1 i 3 2 
6 B 2 1 1 3 6 
7 3 2 ik i 3 6 
8 4 5 aL ak 8 8 
9 ty 3 a iL 8 8 
10 4 3 1 il 8 8 
jet 5 3 1 i 8 “Lil 
12 5 3 i) i 8 aL 
13 6 3 Z Ls 13 13 
14 6 4 2 18 iL3 13 
5 v e, 2 IS 13 FS 
16 7 5 2 13 15 5 
L7 i 5 Z _ IL, A 
18 8 5 2 13 a5 18 
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py 8 5 e 3 ve 18 
20 9 6 2 iL 20 20 
21. 4 6 2 15 20 20 
22 9 6 2 ius 20 20 
23 10 6 2 13 20 23 
24 10 6 2 13 20 23 


B. FORTRAN INPUT 

FORTRAN input will not be discussed in this thesis 
Since it is assumed that most readers are familiar with 
entering FORTRAN data. FORTRAN input required by the terrain 
model used in the current version of STAR may be obtained 


from Professor James K. Hartman, Naval Postgraduate School. 
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TABLE VI 
SAMPLE ATTRIBUTE INPUT VALUES 
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VI. SIMULATED BATTLE 


The following is a typical battle simulated using the 
STAR model. This particular battle has a BLUE company 
team defending against an attacking RED tank battalion 
reinforced with a motorized rifle company. A VERSATEC 
plot of the parametric terrain used for this battle is 


shown in figure 13. 


BLUE Task Organization 


Team C 
Tank Company (-) 
2 Mech Inf Platoons 


Zeina i= lane cee tlons 


BLUE Weapon Systems Simulated: 
12 XML (5 per platoon, 2 in Company Headquarters) 
8 IFV (4 per Mechanized Infantry Platoon) 
4 ITV (2 per Anti-Tank Section) 


1 M113 (Forward Observer Vehicle) 


Initial Ammunition Load, BLUE Weapon Systems: 
XML: 24 rounds APDS 
16 rounds HEAT 


1000 rounds caliber 50 (stored as 100 bursts of 


10 rounds each) 
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IFV: 6 rounds. TOW 
1000 rounds Bushmaster (stored as 100 bursts of 
10 rounds each 
ITV: 8 rounds TOW 
DRAGON: 6 rounds per DRAGON team 


ORES FO carrier, non-firing vehicle 


BLUE positions on the battlefield are shown in figure 5. 


RED Task Organization 
RED Tank Bn (+) 


Team 1 Team 2 Team 3 
Let lank Co 2nd Tank Co 3rd Tank Go 
1 Plt BMPs 1 Plt BMPs 1 Plt BMPs 


Red Weapon Systems Simulated: 
4Oo T72 (13 per company team, 1 per Battalion Headquarters) 


13 BMP (4 per platoon, 1 per BMP company headquarters) 


Initial Ammunition Load, RED Weapon Systems: 
je ce Teunds Arvo 
18 rounds HEAT 
1000 rounds 12.7mm MG (stored as 100 bursts of 10 
rounds each) 
BMP: 8 rounds SAGGER 


4O rounds 73mm 
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Spacing of RED elements in the attack is shown in figures 3 
and 4. Direction of RED attack on the battlefield is shown 
in figure 5. Symbols used to depict weapon systems on the 
battlefield are shown in figure 2. 

The following pages trace the progress of the simulated 
battle over time. Each "time slice” of the battle is 
represented by a table which catalogs each round fired in 
the simulation, followed by a narrative description of the 
battle. The reader's attention is drawn to particular 
portions of the output which will help in understanding 
the progress of the battle and the workings of the model. 
Each narrative description is followed by a map of the 
battle area on which are plotted those weapon systems which 
were destroyed during the time period being examined. Each 
weapon on the map has a number adjacent to it which corres- 
ponds to the number of the round which destroyed the target. 

To illustrate how one might trace the battle using the 


rounds fired table and the battle map, figure 1 is provided: 
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RND: indicates round fired (cumulative total) 
FIR: name (number) of firing weapon system 
TYPE: indicates type of weapon that fired 
AM: indicates type of ammunition fired (see Figure ) 
TGT: name (number) of target weapon system 
TYPE: indicates type of weapon fired at 
TIME.V: simulated time of battle 
\ STAT: result of round fired 
blank-indicates miss 
DEAD-indicates target destroyed 
HIDE-~tndicates target in full defilade when 
round impacted 
RANGE: range to target 
X-FIR Y-FIR: X,Y coordinate of firer 
X-TGT Y-TGT: X,Y coordinate of target 














ES gee 


Teo: TIME oLar GE X-FIR Y-FIR X-TGT ¥-TGT 


256 2496 5300 5620 7238 7393 
Bis 7 ZUG) 7el3, 7366 9300" 5620 
32.9 2429 5974 7704 4760 5600 
32.9 2555-95500) SoeGn 7209 97564 


35.0 DEAD 2799 4920 5100 5966 7696 
38.1 DEAD 2455 4640 5630 5935 7680 
43.7 HIDE 2445 7215 7245 5200 5660 





Note that the destroyed vehicle has the number 5 adjacent to it, 


which corresponds to RND 5 in the rounds fired table. This row of the 
table indicates that the T72 number 52 was destroyed by ITV number 22 
firing ammunition type 1 (TOW) at a range of 2799 meters at 35.0 seconds 
into the simulation. The X and Y coordinates of the firer and target at 
the time the round impacted are also indicated, 


Figure 1 
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- ITV 
- DRAGON Team 


O»>s2¢OET 
: 


- FO Vehicle 


Pasure 2 Symbols Used 
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Deree ton 
of attack 








ah 
lol fo 
a 
—»|1 7501, —__ —= 1 ?5 Pann 
2000m 


Figure 3 RED Battalion Attack Formation 
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Figure 4 RED Company Formation 
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Direction 
Of Attace 








Figure 5 Initial Positions 
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Simulated Time 0 thru 104.9 seconds 


RND FIR TYPE AM TGT TYPE TIME.V STAT RANGE X-FIR Y-FIR X-TGT Y-TGT 
? XM1 58 T?e2 24.6 2496 5300 5820 7238 7393 
58 T72 7 XM Caley, 2461 7213 7368 5300 $820 
52 T72 28 IFV 3229 2429 5974 7704 4760 5600 
XM1 pole 5269 2455 5300 5820 7209 7364 

22 ITV 52 772 39-0 DEAD 2799 4920 5100 5966 7696 
2? IFV 5e T72 38.1 DEAD 2455 4640 5630 5966 7696 
10 XM1 69 T72 ore 22D 3710 95270 97575 co5> 
59 T72 XM1 Lu 3 2505 7133 7393 5300 5690 
57 tie 47.7 2485 5300 5690 7121 7381 

10 XM1 69 T72 50.0 2483 5710 5270 7553 6933 


0 CON] OVW™— FW 0 =" 800 CONT OUI FE WD 
dS= 


1 

1 

2 

1 

1 

1 

1 

1 

1 
1 1 
1 1 
1 65 BMP 1 9 XM1 53-5 DEAD 2869 7292 7562 5580 5260 
1 6 XM1 1 “Seer72 54.9 2511 5365 5500 7131 7286 
1 3) kee 4 XM1 5776 2435 7086 7346 5300 5690 
1 4 XM1 Leo ple 58.0 2434 5300 5690 7085 7345 
1 64 BMP 1. 12 XM1 59.0 DEAD 2931 7203 7603 $800 5030 
1 11 XM1 1 72 T72 60.3 2515 5769 5120 7687 6737 
1 6 XM1 1 58 T72 6250 2474 5365 5500 7104 7259 
1 28 IFV 1 58 T72 63.8 DEAD 2865 4760 5600 7099 7254 
20 Ja t7e) 1 11 XM 66.8 2498 7784 6584 5760 5120 
21 11 XM1 1 22 T72 67.0 2482 5760 5120 7663 6713 
22 8 XMI1 1 59 T72 72.6 DEAD 2346 5200 5860 7163 7143 
23 9? XM1 1 69 T72 72.6 2407 5300 5820 7473 6853 
2h 8S XM 1 55 T72 73.8 2501 5400 5420 6909 7414 
25 72072 1. 10 XM! 74.8 2390 7636 6686 5710 5270 
26 70 T72 1 7 XM1 ide a | 2u28 7524 6794 5300 5820 
An 69. L729 «1 7 XM1 78.7? DEAD 2378 7452 6832 5300 5820 
28 13 XM1 1 62 T72 79.9 2479 5850 4980 7298 6993 
29. =5S XM1 1 $55 T72 81.6 2462 5400 5420 6882 7387 
BO 577t7e 1° G6 XM] 86.7 DEAD 2379 6984 7244 5365 5500 
31 64 BMP 1 13 XM1 87.3 DEAD 2858 7134 7534 5850 4980 
32 ~=68 XM!1 2 66 BMP 87.6 2466 5200 5860 7230 7260 
33° 10 XM) ( “69-172 87.9 2293 5710 5270 7419 6799 
34 4°13 XM 1 62 T72 88.9 DEAD 2435 5850 4980 7266 6961 
35 975 T72 +1 =+10 XM 88.9 2390 77386 6456 5710 5270 
36 27 IFV 1 46 T72 90.6 DEAD 2795 4640 5630 6680 7540 
37 69 T72 +1 =#«=10 XMi 92.2 2272 7404 6784 5710 5270 
38 79 T72 .1 #10 XM1 92.6 2uU75 ) 8022 6152 95710 6 5270 
39 10 XM1 1 69 T72 93.9 2263 5710 5270 7398 6778 
LO 8 XMI1 2 66 BMP 94.1 24u45 5200 $860 7215 7245 
IM e7petye 1 = 1OeKM 94.2 HIDE 2383 7872 6272 5710 5270 
42 28 IFV 1 60 T?72 97.5 DEAD 2772 4760 5600 7155 6995 
43 = XM) 1 i, Te 98.2 DEAD 2441 5300 5690 7543 6653 
hu 65 BMP 1 10 XM1 100.3 HIDE 2550 7123 7393 5710 5270 
45 66 BMP 1 8 XM1 104.1 HIDE 2445 7215 7245 5200 5860 
46 11 XMI legeet7e 104-5 2293 5760 $120 7529 6579 


BLUE elements remaining at 104.9 seconds 


Number Number Average Rnds per Wpn 
Wpn Type acueotert  Kemainins Remaining 
XM1 12 7. Perabo 5,7. HEAL, 
JCI) eBuE S50) 
IFV 8 8 Epo OW, LOCO Bushmaster 
ey Ly 4 7.75 TOW 
DRAGON 6 6 6 DRAGON 


@i00 





RED elements remaining at 104.9 seconds 


Number Number Average Rnds per Wpn 
Won Type See SMeebaar remaining Remaining 
ae Lo 38 21.64 APDS, 18 HEAT, 
1000 12.7mm 
BMP figs £3 7.61 SAGGER, 40 73mm 


During the initial changes of the battle, the priority 
target for all weapon systems is the opposing tank, thus 
during this portion of the simulation those weapon systems 
destroyed are all tanks. Each of the BLUE tank platoons in 
the simulation are reduced significantly during these initial 
engagements (one platoon is reduced to two tanks, the second 
platoon is reduced to three tanks). Likewise, the red 
tanks are the priority target for all BLUE weapon systems. 

Note that at rounds 5 and 6 T72 number 52 is impacted 
by two TOW rounds within 3 seconds of each other. Note 
also at rounds 11, 41, 44, and 45 XMls are impacted while 
in full defilade indicated by the word HIDE in the STAT 


@eolumn. 
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Simulated time 106.3 thru 133.9 seconds 


RND FIR TYPE AM a avPE TEMES 


47 82 BMP 1 XM1 106.3 
48 67 BMP 1 2 XM 107.4 
HOmuGG ve % iil XM 109.3 
Soe) Ea ol «6S? Ee) 110.8 
51 #11 XM1 1 92 Be 112.3 
52 22 Tv 1 54 TP2 114.2 
53 23 ITV 1 61772 ~ 114.9 
54.75 T72 #211 = «+10 XMI 115.6 
55 977 772 1 4 XM1 119.0 
56 70 T72 +1 #«=+10 XM1 119.6 
Co elie EV 60 COU1ll ot 7206011957 
58 64 BMP 1 1 XM1 120.5 
59 27 1FV t 4k Wye 120.7 
60 63 7T72 | 1 4 XM1 120.8 
61 26 IFV 1 45 T72~ 121.5 
62 53 772 1 XM1 Tae 
Goeeeoalrhy . Cian Le melee. 5 
64 5S XM1 1 72772 #£«®+126.6 
65 69 T72 1 Lk XM1 128.8 
66 65 BMP 1 3 ITV 129.4 
67 10 XM1 1 '69 [72 151.6 
68 56 T72 1 2 XM love 
60 72 nIV @ = 1 besiyew 153556 
90°75 272 1 107 KM 133.9 


BLUE Elements 


Wpn Type 
XML 


liga 
ey: 


DRAGON 


STAT 
HIDE 


DEAD 
DEAD 


RANGE X-FIR Y-FIR X-TGT Y-TGT 


zie 


7822 6612 5200 5860 


Remaining at 133.9 seconds 


Number Number 
aaa | heMad mans 


de2 


5 


Average Rnds per Wpn 
remaining 


21 APDS, 15.6 HEAT, 
1000 cal 50 


5 TOW, 1000 Bushmaster 
6.75 TOW 
6 DRAGON 


RED Elements Remaining at 133.9 seconds 


Won Type 
ie 


BMP 


Number Number 


Ateobarb  Nemepemd ns 


LO 


a 


24 


13 


rs 


Average Rnds per Wpn 
dla ee wie bab bal eee 


Ait 2eeaPDs  £o HEAT, 
1000 12.7mm 


7.31 SAGGER, 40 73mm 





Priority target for all weapon systems continues to be 
the opposing tank forces. Each of the two BLUE tank 
platoons is reduced to two tanks. In addition, one of the 
headquarters tanks of the defending team is destroyed. 

Note that at rounds 66, ITV number 3 was destroyed. This 
yehicle is listed as an ITV for lethality purposes, but in 
mact, is the FO vehicle. 

Note also that during the first 133 seconds of the 
Simulation the attacking tank force is reduced to 60% 


of its original strength. 
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Simulated time 135.4 thru 158.7 seconds 


RND FIR TYPE AM TGT TYPE TIME,.V STAT RANGE X-FIR Y-FIR X-TGT Y-TcT 
71 7o° ize 1 «VO .xMI oon 2282 7871 6001 5710 5270 
72 67 BMP 1 2 XM 135.6 DEAD 2832 7203 7103 4970 5360 
73 #15 IFV 1 69 772 #£«29136.1 DEAD 2819 5150 4780 7265 6645 
7 63 T72 #1 10 XMI 137.0 2059 7176 6716 5710 5270 
75 66 BMP 1 27 IFV- 138.0 DEAD 2908 7120 7150 h640 5630 
26. 77 ie.) 1 10 a 138ec DEAD 2171 7711 61I1 5710 5270 
77? 21 ITV 1 #55 772 «138.4 DEAD 2678 5000 5100 6681 7186 
78 53772 ~~» 1 XM1 140.1 DEAD 2202 6570 7280 5400 5420 
79 «#3=5 XM 1 56 fe. 140%2 2166 5400 5420 6724 7134 
80 81 BMP 1 XM1 141.9 DEAD 2508 7643 6543 SHOO 5420 
81 22 ITV 1 #53772 #«59143.0 DBAD 2725 4920 5100 6570 7270 
82 = 8& XM 2 67 BMP 144.9 2294 5200 5860 7157 7057 
83 14 IFV 1 70 T72 #4«®9150.7 DEAD 2736 5090 4880 7267 6537 
84h 8 XMI 2 67 BMP 153.2 2257 9200) 15060) 7115 VOD 
Som 2ouley mele tou 2) 15l. |S DEAD 262th 35300 55706555 2ioo 
86 32772 +1 #«+11 XM loins 20k 7075 7265 25/760 5iee 
87 28 IFV 1 63 T72 #4+155.4 DEAD 2575 4760 5600 7110 6650 
88 11 XM1 1 76 T7e 156.0 2107 5760 5120 7599 6149 
89 68T72 +1 #=11 XM lovee 2245 7662 6312 5760 5120 
GO. Slom72) 1 aie xin 158.5 2447 6890 7290 5760 5120 
91 82 BMP 1 11 XM} 158.7 2263 7619 6409 5760 5120 


BLUE Elements Remaining at 158.7 seconds 


Number Number Average Rnds per Wpn 
Wpn Type at Start remaining remaining 
XML iby Zz ZAP DS ei oA eer OOe 
cal 5 
ey 8 2 4.71 TOW, 1000 Bushmaster 
fey 4 a 6.25 TOW 
DRAGON 6 6 6 DRAGON 


RED Elements Remaining at 158.7 seconds 


Number Number Average Rnds per Wpn 
Wpn Type at Start remaining remaining 
ae 40 19 Zone APDs, 13 HEAT, 
TOOCG Cal 50 
BMP 13 nS 7 SAGGER, 40 73mm 


PAS) 





Red tank Systems continue to be the priority target for 
BLUE systems and continue to be attritted significantly. 
Mo this point in the battle no BMPs have been eliminated 
from the attacking force. Note that T72 number 69 (round 
73) was previously destroyed at round 67. Round 73 is the 
impact of a TOW round fired by an IFV. The impact of this 
second round on T72 number 69 is largely a consequence of the 
long time of flight of the TOW round which was actually 
fired prior to the impact of round 67. 

The BLUE defenders have been reduced to only two tanks, 
One in each of the tank platoons. The reduction in the 
number of defending tanks should cause IFV and ITV systems 


to become the priority target for the attackers. 
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Simulated time 161.7 thru 201.9 seconds 


' RND FIR TYPE AM TGT 


aera ui 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


76 272. 162.8 DEAD 2071, 
21 ITV 163.3 DEAD 2883 
28 IFV 163.9 DEAD 2739 
75 T72 164.2 DEAD 2835 
11 XM1 =: 165.0 

63 T72 165.6 DEAD 2619 
(> T72 166.6 DEAD 2697 
23 ITV 179.6 DEAD 2794 
40 T72 182.6 DEAD 2502 
56 T72 186.2 DEAD 2489 
22 ITV 187.9 DEAD 2903 
77 T72 189.5 DEAD 2715 
68 T72 189.8 2575 
74 T72 2 8=6193.7 DEAD 2572 
22 LIV) 19h. 7 BEAD 2856 
26 IFV 194.8 DEAD 2837 
22 ITV 196.1 DEAD 2807 
68 T72 197.5 2342 
Ba72 » ©201.9 2285 


TYPE TIME.V STAT RANGE 
39 T72 161.7 DEAD 2630 


X-FIR Y-FIR X-TGT Y-TGT 


BLUE elements remaining at 201.9 seconds 


Wpn Type 
XM1 


IFV 
ug 
DRAGON 


Number 


2G See wale 


2 


8 
by 
6 


Number 
remaining 


Fa 


“2 
i 
6 


Average Rnds per Wpn 
remaining 


19 APDS, 14 HEAT, 
1VCOVeCal Se 


4.4 TOW, 1000 Bushmaster 
? TOW 
6 DRAGON 


RED elements remaining at 201.9 seconds 


Wpn Type 
72 


BMP 


Number 


IG fs) eliaiy 


40 


13 


Number 
remaining 


sue 


13 


Average Rnds per Wpn 


remaining 


21.45 APDS, 18 HEAT, 
LOO Cm 2. / im 


6.38 SAGGER, 40 73mm 


At this point in the simulation, BLUE long range systems 


have been attrited significantly. 


has one remaining vehicle. One of 


Each of the tank platoons 


the Mech platoons has 


been reduced to only 1 IFV and 3 DRAGON teams, and there 


Zi 





remains only one operational ITV in the simulation. The 
battle has become virtually a SAGGER versus TOW duel. 

BLUE weapons continue to target attacking tanks, while 
the scarcity of BLUE tanks make the IFV and ITV priority 


targets for the attackers. 
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simulated 
RND FIR TYPE AM TGT TYPE TIME.V STAT RANGE 
lie. SI-t72 1 Tier 203.8 DEAD 2231 
113 24 ITV 1 32 772 #+%(.}209.8 DEAD 2766 
114 67 BMP 1 24 ITV 210.3 DEAD 2730 
115 81 BMP 1 24 ITV 210.7 DEAD 2850 
116 82 BMP 1 #14 IFV 215.0 DEAD 2766 
117 17 eV 1 68 T72 275.5) DEAD 2633 
11S SeLEv 1 «SiMe 6 °-215.5 DEAD g2772 
119 16 IFV 1 81 BMP 219.5 DEAD 2698 
120 49 BMP 1 14 IFV 219.8 DEAD 2916 
121 14 TFV 1 76 B72 Weamo . 2563 
122 65 BMP 1 14 IFV 223.4 DEAD 2768 
123 8 XMI1 2 67 BMP 234.2 1876 
124 82 BMP .1 16 IFV 241.1 DEAD 2762 
e257. Lie ae) 8 XM1 2k2,u 2229 
126 8 XMI1 2 67 BMP 245.6 1823 
127 15 IFV 1 84 BMP 246.3 DEAD 2555 
128 16 IFV 1 82 BMP 248.4 2712 
129 67 BMP 1 8 XM1 251.3 HIDE 1823 
130 82 BMP 1 15 IFV 272.8 2554 


BLUE elements 


Won Type 
XML 


ey 


iy 


DRAGON 


Number | Number 
at Start remaining 


12 u 
g 3 
4 0 
6 6 


timomzOseo stnru 272. 6 seconds 


X-FIR Y-FIR X-TGT Y-TGT 


remaining at 272.8 seconds 


Average Rnds per wWwpn- 
remaining 


21S ee DS, LO: He an. 
1000 cal 50 


Sa35 LOW, LOU0 
Bushmaster 


6 DRAGON 


RED elements remaining at 272.8 seconds 


Won Type 
Lee 


BMP 


Number Number 


at Start remaining 


LO 8 


Ls Jab 


Va 


Average Rnds per Wpn 
remaining 


Pie os AEDS, 13 HEAT, 
1000 12.7mm 


5.54 SAGGER, 40 73mm 





At this point in the simulation, the BLUE force has been 
reduced to 1 tank, 3 IFVs, and 6 DRAGON teams. The RED 
tank force has been reduced significantly, but the attacking 
BMP force remains essentially intact. 

Available TOW ammunition has been reduced to only 10 
rounds available to the defending force. IFVs number 15 
and 17 have two rounds each, while IFV number 25 has 6 TOWs 


remaining. All defending ITVs have been destroyed. 
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weabbars ILC; 
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Simulated time 277.5 thru 399.6 seconds 


RND FIR TYPE AM TGT TYPE TIME.V STAT RANGE X-FIR Y-FIR X-TGT Y-TGT 
1St 15 TEVR 1 GoeeMP “277.5 DEAD 2504 5150 4760" Goa7 6597 
132 8 XM1 1 #35 172 &£«285.7 1732 5200 5860 5290 7590 
1355 95 P72 1 %& XM ae5.c W732 5290 7890 =3200 5660 
134 8 XM1 1 35 772 4292.7 1706 5200 5860 5265 7565 
135 83 BMP 1 £48 XM1 298.3 HIDE 2083 7282 5782 5200 5860 
136 82 BMP 1 15 IFV 298.4 DEAD 2463 7260 6050 5150 4780 
137 15 IFV 1 67 BMP 308.5 2149 5150 4780 6528 6428 
138 SO BMP 3 30 DRAG 312.8 DEAD 1713 5657 7027 4550 5720 
139 64 BMP 3 18 DRAG 313.1 1765 6147 "6547 5840 4650 
140 67 BMP 3 31 DRAG 315.5 1906 6494 6394 4700 5750 
141 36 772 +3 31 DRAG 316.5 DEAD 1750 5281 7401 4700 5750 
142 48 BMP 3 31 DRAG 316.7 DEAD 1834 5540 7380 4700 5750 
145 33 BMP 3 16 DRAG 327.5 1897 6542 6592 5840 4830 
144 64 BMP .3 18 DRAG 331.9 1638 6054 6454 5840 4830 
145 65 BMP 3 19 DRAG 332.6 1841 6252 6522 5790 4740 
146 83 BMP 1 £48 XM1 343.8 DEAD 1922 7105 5605 5200 5860 
147 65 BMP 3 19 DRAG 344. 1771 6194 6464 5790 4740 
148 67 BMP 3 20 DRAG 345.8 DEAD 1703 6344 6244 5670 4680 
149 64 BMP 3 18 DRAG 346. 1558 5981 6381 5840 4830 
150 33 BMP 7% 8 XM1 350.0 DEAD 1456 6488 6538 5200 5860 
151 65 BMP 3 19 DRAG 364.6 DEAD 1652 6084 6364 5790 4&740 
152 64 BMP 3 18 DRAG 366. 1452 5881 6281 5840 4830 
153 33 BMP 3 18 DRAG 369.9 1701 6390 6440 5840 4830 
154 64 BMP 3 18 DRAG 387.2 1352 5780 6180 5840 4830 
155 33 BMP 3 18 DRAG 390.3 1574 6289 6339 5840 4830 
156 64 BMP 3 18 DRAG 399.6 1295 5719 6119 5840 4830 
BLUE elements remaining at 399.6 seconds 
Number Number Average Rnds per Wpn 

Wpn Tyve at Start remaining remaining 

XML 2 QO ee ee eee 

IFV 8 c 4 TOW, 1000 Bushmaster 

EEN, 4 QO — mmm ene nene ee 

DRAGON 6 Z 6 DRAGON 


RED elements remaining at 399.6 seconds 


Won Type 


Me 


BMP 


Number 
Ske See ie 


40 


13 


Number 
remaining 


8 


ine 


Average Rnds per Wpn 
remaining 


Aw AP oS, Lo HEAT; 
998 12.7mm 


5.3 SAGGER, 38.4 73mm 





At this point in the simulation, the BLUE tank force and 
ITVs have been eliminated. Each of the Mech platoons has 
one IFV and one DRAGON team remaining. The lack of BLUE 
weapon systems remaining in the simulation has caused the 
DRAGON teams to assume highest priority in the target lists 
of some of the attackers. The DRAGONS are being engaged at 
ranges beyond 1000 meters and thus are unable to return 
fire. Note that DRAGONS are being engaged by ammunition 
type 3 (73mm for BMPs and 12.7mm for 172s). 

Note also at round 136 that IFV number 15 is destroyed, 
but at this time he has a TOW round in flight which impacts 
et round 137. The model takes into account the fact that a 
wire guided round is "unguided" when its carrier is destroyed, 
and although the round impacts it will always be assessed as 


a miss. 
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Simulated time 402.3 thru 750.0 seconds 


RND FIR TYPE AM TGT TYPE TIME.V STAT RANGE X-FIR Bee X-TGT Y-TGT 
8 


157 33 BMP 3 18 DRAG 402.3 DEAD 1501 6230 6280 5840 4830 
158 17 IFV 1 78772 490.8 DEAD 1470 5100 4540 6545 4815 
159 80 7T72 2 17 IFV 498.1 1579 6676 4626 5100 4540 
jooue7o tye. 2 17 TEV 9496.7 DEAD™ 1505 6594 72h 5100 4580 
161 29 DRAG 2 36772 563.8 DEAD 887 4430 5640 4407 6527 
162 29 DRAG 2 37 772 578.8 DEAD 754 4430 5640 4394 6394 
163 25 IFV 3 49 BMP 586.3 DEAD 292 4370 5540 4260 5810 
164 25 IFV 3 50 BMP 612.3 DEAD 195 4370 5540 4175 5545 
165 25 IFV 1 35 772 631.8 DEAD 880 4370 5540 4066 6366 
166 25 IFV 1 38772 650.6 DEAD 524 4370 5540 4250 6050 
167 25 IFV 3 4&8 BMP 686.7 DEAD 550 4370 5540 4232 6072 
168 25 IFV 3 4&7 BMP 705.2 + 616 4370 5540 4087 6087 
i695 25 IFV 35 .b7eBMP 72).7 6 4370 5540 4028 6028 
170 25 IFV 3 4&7 BMP 738.4 587 4370 5540 3969 5969 
SIMULATION STOPPED AT 750.000 LOS CALLS = 4696 


BLUE elements remaining at 750.0 seconds 


Number Number Average Rnds per Wpn 
Wpn Type at Start remaining remaining 
XML We 0 = aeaeae------- 
IFV 8 Hi 4 TOW, 940 Bushmaster 
ey, 4 0 | #a----------- 
DRAGON 6 Al 4 DRAGON 


RED elements remaining at 750.0 seconds 


Number Number Average Rnds per Wpn 
Won Type at Start remaining remaining 
Tyee LO 3 Zion! >, 1b 7.33 HEAT, 
1000 12.7mm 
BMP iG 7 4,43 SAGGER, 37.85 73mm 


AG termimation of the Simulatrommoneminy and one DRAGON 
team remain of the BLUE force, while three T72s and seven 


BMPs remain of the RED force. 


Zee 





The attacking force had closed to a range where the 
DRAGON was able to bring effective fire on the RED force. 
Notice that at these reduced ranges the IFV continues to 
engage T72s with ammunition type 1 (TOW), but selects 
ammunition type 3 (Bushmaster) to fire at the thinner 
skinned BMPs. 

The attacking force remains oriented toward its 
direction of movement, and thus never "sees" the remaining 
defenders as they pass the BLUE positions. This enables 
the defenders to destroy several RED vehicles during the 
last few minutes of the Simulation without drawing any 


Significant answering fires. 
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Figure 12 
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The reader is cautioned not to draw any analytical 
conclusions from the preceding Simulation. This simulation 
was run to demonstrate the capabilities of the STAR model. 
The data used for the exercise was greatly simplified and 
in no way represents what might be the results of the model 


run in support of a particular study. 
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VII. FUTURE MODEL ENHANCEMENT 


The model described in the preceding chapters should 
not be viewed as the final product. Enhancement of the 
existing model is the subject of several masters degree 
theses currently under development at the Naval Postgraduate 
School. The purpose of this chapter is to give the reader 
a general idea of projected additions to the model. 

Ne mentioned ingemapter ease hLoceecueamcnpport/aar 
defense module is under development for inclusion in the 
model. The availability of this module is projected to 
be mid-April 1979. In addition, a working artillery module 
is now available, and will be integrated into the model by 
mid-December 1978. 

The criteria for target selection using the danger 
state arrays is not considered sufficient for future model 
uses. It is possible that the interaction of such factors 
as ammunition remaining, whether an enemy element has fired, 
anticipated time of ammunition resupply, etc., could alter 
the priorities calculated from the danger state arrays. 
Research is currently being conducted to determine what 
additional factors are important in target selection and 
now these factors should be included in target selection 
Ogee 

Ammunition and fuel redistribution and resupply are 


considered vital to the success of any military operation. 
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Future versions of the model will include resupply of fuel 
and ammunition to include the introduction of resupply 
vehicles to the simulation to allow dynamic resupply to be 
played. 

A Battalion communication model is currently under 
development which will incorporate electronic warfare 
considerations. This model will contain a realistic propa- 
gation model, incomplete transmission detection and 
retransmission, frequency change effects, “ales of message 
fuori To and play Om RED intercep. and jammiunc- 

ienamic route selection is being considered for future 
model inclusion. A module which considers enemy locations, 
wer Lerrarm, ana the tacurcal Secarvrom, and@dynamically 
eompuues routes Lor elements Nas been proposed vo chhance 
the existing model. This module would be a user specified 
option and would allow pre-selection of routes or dynamic 
Selection of routes as desired by the user. 

iG iS difficult to predict when all om the apoue 
mentioned modules will be available for integration into 
the STAR model. It is intended that enhancement of the 
model be a continuing effort at the Naval Postgraduate School, 
the objective of which is to provide a versatile mid- 
resolution combat model for a wide variety of military 


appl leau Ponca 
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APPENDIX A 
PLOWCHART 


This appendix presents the event sequence a single XM1 
would follow through the model. 
Within the flowchart the following non-standard symbol 


is used: 


an event 


Explanatory text accompanies the flowchart. For 


details concerning the processing within an event, see 


Chapter IV. 
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PREAMBLE After cycling through the PREAMBLE and MAIN, 
TANK goes into event STEP.TIME and looks at 
every opposing weapon system still active 
in the simulation. If time to detect 
determined by Routine CARDIO is less 
than or equal to 30 seconds, and line 

MAIN of Sight exists to the target, the target 
is scheduled for detection. In any case 
next STEP.TIME is scheduled. 


EVENT 
So yllaiahdl ae & ALDE Wl 


select 
eo eRe. 


Hlement 


ROUTINE 
CARDIO 


Reschedule 





STEP. TIME 














select 
next RED 
Element 





select 
next RED 
Element 
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Routine IMPACT occurs at the time 
specified in event FIRE based on 
the time of flight of the pro- 
jectile. Determination is made 
as to whether the round hits or 
misses the target, and the proper 
routine is called to tally the 
result of the round. If the 
round was a miss, the target is 
Routine engaged again by rescheduling 
WE..MISS |event FIRE. -If the round is 
assessed as a hit, the firer 


Target 
killed 
? 


selects a new target by schedul- 


ing the event TARGET.SELECT. 
Routine 

TALLY.HIT 
STATE 


Reschedule 
FIRE 





Reschedule 
TARGET. 
SELECT 
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Event 
DETECT 
Go to next 
Line No Scheduled 
of Sight Event 
& 
Yes 


Routine 
PROXIMITY. 


DETECT 











Check next 
tank in 
platoon 







ank 
Wal bei 







Routine 
his T.UPDATE 


TARGET. 
SH LET 
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Event DETECT takes place 
at time scheduled in 
event STEP.TIME. Event 
DEMBRCT fist checks to 

see if line of Sight exists 
between firer and target; 
Lf SOF; rouvinesPROXMMTY . 
DETECT is called which 
checks all weapon systems 
in the detected vehicle's 
Dlavoon.  Rowurme biol. 
UPDATE is called for the 
detected vehicle and any 
proximity detections. 
LIST.UPDATE places targets 
me ticwueer' S List of 
currently detected targets 
and schedules event 
TARGET.SELECT. 





CG Event TARGET.SELECT cycles 
caeouen the firer’s list of 
currently detected targets. For 
the XML, routine XM1L.TACTICS is 
called to determine if any 






Routine 


XML.TACTICS other platoon member is 
scheduled to fire at the XM1's 


hishest priority tanget. The 






select next 
higher 
joenbtonant 1A\g 
target 





priority target is selected 
and line of sight is checked 


to see if it still exists 











pleLori ty 
target 


selected between firer and target; if 





so, event FIRE is scheduled; 
if NOt, the mext priority 
target is selected and the 
process is repeated. Event 


of Ses FIRE first GhWeeks to see if the 
selected target is still alive 
tes (3 ) and line of sight still exists 
to the target; if so, the 
Event event IMPACT is scheduled to 
i sa occur: if not, event TARGET. 


SELECT is scheduled. 


at Ge 





Line No 
ee SLE (a ) 
fe 


Yes 
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APDS 


ATGM 


BLUE 


BMP 
BN 


APPENDIX B 
GLOSSARY OF TERMS AND ABBREVIATIONS 
Armor Piercing Discarding Sabot; an armor defeating 
tank round 


Anti-Tank Guide Missile; general term referring to 
wire guided missiles 


Term referring to friendly forces in battle or 
Simulation 


Warsaw Pact mechanized infantry carrier 


Abbreviation referring to Battalion organization 


Bushmaster - 25mm automatic weapon mounted on U.S. Infantry 


eLbiLe 


Fighting Vehicle 
Abbreviation referring to company organization 


Division Air Defense Gun; a tracked air defense 
weapon soon to be introduced into U. 8S. inventory 


A medium range, wire guided, anti-tank missile 


Abbreviation referring to an artillery forward 
observer 


High Explosive Anti-Tank; a tank round 


Infantry Fighting Vehicle; Simeyw 9s. tnfantry 
carrier equipped with an ATGM system and Bushmaster 


Abbreviation referring to Infantry forces 
Present generation infantry carrier 


Mechanized; used normally to refer to mechanized 
infantry forces 


Abbreviation used to refer to any machinegun 
Abbreviation which refers to a platoon organization 


Term referring to enemy forces in battle or 
Samay Lom 
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T72 - Warsaw Pact main battle tank 
XML - New generation U. S. main battle tank 


ZSU - Warsaw Pact air defense weapon system 
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